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GREETINGS! Welcome to the Ute summer/early autumn 
edition of NORTHERN BYTES. It seems strange to realize that 
we've already published six issues of NORTHERN BYTES this 
year. For an "irregular" publication, we've been getting out 
pretty regularly! 

Now that 80-Micro is beginning to look more and more like 
MAD Magazine (see their September, 1984 issue), it may be that 
we are the only serious publication left for the TRS-80 Model 
I/III/4 user. Bow long can we keep doing it? Hell, suppose we 
decided to offer subscriptions. To paraphrase the TV announcer, 
"How much would YOU pay for six issues of this fine newsletter?" 
While you're thinking about it, keep in mind that so far, we 
haven't had much advertising, and that almost all of the material 
appearing in NORTHERN BYTES can be considered to be in the 
public domain, meaning you can use it as you see fit (for 
non-commercial purposes, anyway). 

I hate to say it, but the day may come when NORTHERN 
BYTES will either have to commit itself to becoming a 
subscription item, or discontinue publication. Editors (and 
Publishers) have to eat, too. 

I've received a few complaints about the content of 
NORTHERN BYTES - such as, "Why don't you publish more 
programs in BASIC instead of assembly language" or "Why don't 
you publish some programs for non-disk users (cassette, 
Stringy-Floppy, TC8, etc.)" The reason is simple - I can't publish 
what I don't have. Most of the material in NORTHERN BYTES has 
been contributed directly to us by folks like YOU. If I don't get 
any articles on a given subject, I can't publish them. At this point 
we "reject" only a very small percentage of the articles we 
receive. If you sent us something and you haven't seen it 
published yet, you may want to check and make sure we received it 
(unless you sent it in the last month or two, in which case it may 
appear in the next issue of NORTHERN BYTES). 

I will point out that I know of at least two instances where 
someone mailed us a disk, and it never arrived here. One disk was 
traced as far as Detroit, where it suddenly disappeared into a 
"black hole" (or maybe someone's overcoat), never to be seen 
again. When you send diskettes to NORTHERN BYTES, if you 
have easy access to United Parcel Service you might be better off 
to send them that way. Note that MOST diskettes sent to us DO 
arrive safely, so don't put off sending us something for fear that 
it might get lost. 

On a related note, if you are sending something short and 
don't want to use a diskette, PLEASE consider sending it 
electronically via MCI Mail. Folks, I am MOT a 
touch-typist. The three paragraphs that took you five minutes to 
type will probably take me twenty minutes to re-type (no, I don't 
have secretarial help!). It costs you ABSOLUTELY NOTHING to 
register for MCI Mail, and there are NO monthly service charges 
or connect-time charges. An article elsewhere in this newsletter 
gives the procedure for registering with MCI Mail. 

What about personal replies from the editor? On this point I 
have to apologize, but I'm afraid that I am going to have to curtail 
those. Unfortunately, I have only so much time, and I can either 
spend it answering mail, or working on NORTHERN BYTES and 
similar projects. So, effective immediately, the following policy 
is in effect: 1) If you need to contact me, you may telephone me, 
at your expense, and with the understanding that if I'm not home 
and you get my wife, you may leave a message asking me to call 
you back COLLECT (or you may try again later). I'm usually up 
until at least 11530 Eastern Time, sometimes later. My number is 
(906) 632-3248. 2) You may write to me, but if you want a reply 
you MUST send a SELF-ADDRESSED, STAMPED ENVELOPE, and 
even then I do not guarantee a reply. Exceptions! Canadians send 
a self-addressed envelope and a Canadian quarter if you don't 
have U.S. postage. From other countries, if all you want is a 
simple one or two page reply then don't worry about sending an 
envelope or return postage (unless you get in the habit of writing 
often), it's too much hassle to cash in International Reply 
Coupons and the like. Again, please note that I do NOT guarantee 



a reply to every letter I receive, even if you DO send the SASE, 
but I will NOT reply without the SASE. It's a case of "You pays 
your money and you takes your chances." Please be assured that I 
do READ every piece of mail I receive, and if you're sending a 
question for which I do not have an answer, it may appear here in 
NORTHERN BYTES to give our readers a chance to help. 

"What brought on this policy?", I hear you ask. Well, it was 
just that earlier this summer, I moved - sort of. My address is 
still the same, though. What happened was that I sold my old 
mobile home, and got a larger one which was placed on the same 
lot that my old one had been on (that's why my address hasn't 
changed). Unfortunately, during this "move" I had only very 
limited use of my computer for about a month and a half. The 
problem was that my computer area is not physically located in 
the mobile home itself, but rather in a 12'xl2' added room which 
we retained. In order to be attached to our new mobile home, the 
added room had to be physically moved forward about twenty feet, 
and it took the company that was going to do the job nearly a 
month to get around to doing it (despite many broken promises 
that the job would be done sooner). We finally wound up getting 
someone else to finish the job, after the delay (and the lies) 
became intolerable. 

During most of this period my system was effectively 
"down", but the mail just kept on pouring in, and most of it was 
from folks that wanted at least some sort of answer. Since, as I 
have mentioned, I am not a particularly fast typist, it would have 
taken me a couple of months to personally answer each letter once 
I got my system up and running again, So, what happened was that 
many of these folks got a "form letter" reply. However, I'm sure 
that some pieces of mail got misplaced during the move, so if you 
wrote and didn't hear anything at all from me, you might want to 
try again. 

In any case, I felt totally "swamped" for a while, and decided 
that unless and until I get into a position where I can afford a 
secretary to answer mail, I'm just not going to promise replies to 
anyone. Since I don't have^ to type replies to phone conversations, 
I don't mind phone calls. I will also point out that if I owe you 
anything (for example, a diskette) it might be wise for you to drop 
me a postcard and remind me, since a lot of things got moved 
around here, never to be seen again (we STILL can't find our 
pencil sharpener)! 

Well, enough of the editorial comments, I hope that you and 
yours had a nice summer (or nice winter, if you live in the 
Southern Hemisphere). By the way, it is NOT true that Sault Ste. 
Marie only has two seasons (winter and the Fourth of July). We 
also have an Indian Summer in August (usually around the second 
weekend). So there. 

THE EXTERMINATOR - Summer's almost gone, but the BUGS 
linger on. Laurie Shields of Chesterfield, England passed along 
the information that the NEWDOS/80 PDRIVE settings that we 
published in Volume 5, Number 3, that supposedly would read 
LDOS double density disks were all wrong. As Laurie put it, 
"Granted they allow you to read the first 10 sectors of the 
directory but as for getting the files they would make a right 
mess of a disk." I'd be interested to know how anyone else made 
out with those PDRIVE settings, but for now, I wouldn't use them 
with anything that hasn't been properly backed up first! 

Paul Snively's article on "BACKING UP MORE RECENT 
VERSIONS OF SUPER UTILITY PLUS" had a slight problem - his 
method wouldn't work on a Model III or 4! Paul explains! 

"Here is the listing to a program that was written at the 
request of Mike Davis from San Diego, California. It seems that 
he tried my 'SU+ as a /CMD file' technique from Northern Bytes 
Volume 3, Number 4 and it made the /CMD file OK, but shortly 
after executing the thing, it'd crash! Well, it seems that he was 
getting a serial number checksum of zero. Not only that, he got 
zero for every copy of SU+ that he tried! Well, he was using a 
Model III, so I tried using my technique on a pristine SU+ that I 
happen to have here, and I did so on the Model 4. Sure enough, 
zero! And the /CMD file crashed just like Mike said. Nuts. 



"Well, I assumed that the III (and 4) alter the contents of 
the I register upon boot-up, thereby making it impossible to get 
an accurate serial number checksum by using the method that I 
mentioned (which works just fine on a Model I.) So, here is a 
program which generates a checksum of the serial number given to 
it. NOTICE THAT THE CORRECT SERIAL NUMBER OF YOUR 
COPY OF SU+ CAN ONLY BE GOTTEN BY HOLDING DOWN THE 
'S' AND THE <CLEAR> KEYS FROM AN SU+ MENU!!! 



520B 

5200 CDC901 
5203 216152 
5206 CD67H 
520? 218E52 
520C E5 
520D 118F52 
5211 O1OF0O 
5213 3420 
5215 EDB0 
3217 El 

5218 0610 
SZ1A CD1001 
521D38E1 
521F18 
5220 0600 

5222 09 

5223 3620 
5225Z18E5Z 
5228 110010 
522B 7E 
522CEDH 
522Efil 
5Z2F1F 

5230 23 

5231 10F8 
5233 FO0 
5235 3003 
5237 C610 
5239* 
523A217C52 
523DCD47H 

5210 79 

5211 E6F0 
5213 CB3F 
5215 CB3F 
5217 C83F 

5219 CB3F 
521BC05D52 
521EC03300 

5251 79 

5252 E60F 
5251 CD5052 
5257 CD3300 
525A C32D40 
5250 C490 
525FZ7 
5260 CE10 

5262 27 

5263 C? 
526157 



10100 
10110 
10120 
10130 
00110 
10150 
10160 
10170 

ooiee 

10190 
00200 
00210 
(0220 
10230 
00210 
10250 
OO260 
10270 
10280 
10290 
10300 
00310 
00320 
00330 
00310 
00350 
00360 
00370 
00380 
00390 
00100 
00110 
00120 
10130 
00410 
00150 
00160 
00170 
00180 
00190 
00500 
00510 
0(520 
(0530 
(0510 
0(550 
00560 
0(570 
0(560 
((590 
0(6(0 



start 



LOOP 



68 61 71 21 69 
61 6C 2( 23 3F 
527B (3 (0610 
527C 51 (0620 
68 65 20 63 68 
528D (3 (0630 
0010 00610 
5200 0(650 
(00(0 TOTAL ERRORS 



ORG 
CALL 
LD 
CALL 
LD 
PUSH 
LD 
LD 
LD 
LDTA 
POP 
LD 
CALL 
JR 
LD 
LD 
ADD 
LD 
LD 
LD 
LD 
NEG 
ADD 
LD 
INC 
DJNZ 
CP 
JR 
ADD 
LD 
LD 
CALL 
LD 
AM) 
SRL 
SRL 
SRL 
SRL 
CALL 
CALL 
LD 
AND 
CALL 
CALL 
JP 
ADO 
DAA 
ADC 
DAA 
RET 
PROMPT DEFH 
73 2( 79 6F 75 
20 

DEFB 
RESULT DEFM 
65 63 6E 73 75 

DEFB 
BUFF DEFS 
END 



MA 



Asm 



5200H 

(1C9H 

HL.PROHPT 

4167H 

HL.BUFF 

HL 

OE,BUFF+l 

BC.15 

(HL),2(H 

HL 

B,16 

0010H 

C.START 

C,B 

B,0 

HL.BC 

(HL),20H 

HL.BUFF 

BC.IMOH 

A,(HL) 

A,C 

C,A 

HL 

LOOP 

10H 

NCtfH 

A.10H 

C,A 

HL.RESULT 

M67H 

A,C 

(F(H 

A 

A 

A 

A 

Asm 

(033H 

A.C 

(FH 

Asm 

0033H 

H2DH 
Ai9(H 

A,*H 



'Mhrt is sour ftrial «? 
72 2( 73 65 72 69 

OH 

'Th» checksun is: ' 
60 2( 49 73 3A 20 
03H 
16 
START 



As good a place n any 

Clear the screen 

Get pronpt address 

Display the prwvt 

Point to buffer for input 

Save address for later 

Point to address after BUFF 

♦ of bates ninus one 

Byte to fill with 

Bonbs amy! 

BUFF back to HL 

16 characters nax, in seriaK 

Get a line fron keyboard 

START over on <BREAK> 

Get actual count to C 

Zero out B 

IPoint to end of str in? 

Blank out (OH 

Point to beginning of BUFF 

16 chars, Zero checksun 

Get a character 

NECate it 

Add to checksum total 

Update total 

Bunp pointer 

Finish checksun 

Less than 1(H? 

No, No Adjustment 

Bunp by«H 

Adjust total 

Point to RESULT string 

Display it 

Get checksun 

Mask out low bits 

Hove high bits to low 



{Convert (-f to T-T" 

{Display digit 

{Get checksun 

{Mask out high bits 

{Convert (-F to "("-"F" 

{Display digit 

{Back to DOS 

(Quick hex-ASCII convert 



ASCII 525D 
RESULT 527C 



BUFF 528E 
START 52(0 



LOOP 522B NA 



523A PROMPT 5261 



•There! Now all of those Model III/4 owners who read 
Northern Bytes and wondered why my SU+ /CMD file technique 
didn't work can try again!" 

Also in Volume 5, Number 4 we ran a short article entitled 
"CREATE A SELF-BOOTING DISKETTE USING NEWDOS/80" by 
Joachim Kelterbaum. Gary Bryce of Sydney, Australia tried to 
use the method shown, but found it wouldn't work for him tit kept 
coming up with "SYS ERROR" after boot). Gary goes on to state: 



"Not to be deterred I investigated further and worked out 
how to do it. The procedure works for single density disks on a 
Model I, and double density disks on a Model III. 

"Format a data disk (no system on it) - note that the TSR 
(Track Step Rate) for boot must be set correctly by PDRIVE 
before formatting the data disk. Now copy the /CMD file to be_^ 
made self booting to the formatted data disk. Use the DIR d 
command (where d is the number of the drive containing the da. 
disk) to ensure that the file was saved in one contiguous block 
(usually it will have only one extent, as listed in the EXTS column 
of the directory display, the exception being those files over 32 
grans or 41K long). 

"Now use the DFS option of SUPERZAP to read relative 
sector of the file, note the DRS (Drive Relative Sector) of this 
sector, return to the SUPERZAP menu (X), select the DTS option 
and enter the drive number and DRS, the resulting display will 
show the starting Track (TRK) and Sector (TRS) numbers of the 
file (for Mod I double density only, add 1 to the TRK). Using 
SUPERZAP, patch the following bytes of sector in BOOT/SYS of 
the data disk in the following manner: 

MODEL I - 

Byte 12 - Start Sector # of the /CMD file. 

Byte 13 - Start Track # of the /CMD file. 

Byte 4B - change from C8 (RET Z) to C9 (RET). 

MODEL III - 

Byte 04 - Start Sector # of the /CMD file. 

Byte 05 - Start Track # of the /CMD file. 

Byte 3E - change from C8 fRET Z) to C9 (RET). 
(Please note that I have not verified the Model III mod, as I have 
a Model I.) Now a few words about what types of files can be 
made self-booting. Generally speaking, any file which has no 
calls into DOS would be suitable (e.g. Cassette based games, 
utilities)." 

Gary Bryce is the editor of SYDTRUG NEWS, the newsletter 
of the Sydney TRS-80 Users Group, and the above comments by 
Gary were reprinted from that publication. Their mailing address 
is P.O. Box 43, Erskineville 2043, AUSTRALIA, 

Finally, on page 19 of Volume 5, Number 4 I reviewed 
Scripture Software's BIBLE SEARCH program. The current 
version is 1.4 and now includes the Old Testament as well as tb»-^ 
New. In addition, a new method of text compression is used wh 
makes the disk files occupy less room on the disks - the ertti. 
Bible (Old and New Testaments) now occupies only 16 single sided 
single-density disks (for those of you not familiar with "text 
compression", note that this does NOT mean that any part of the 
scriptures have been omitted or "condensed". It simply means 
that they have been saved on disk in such a way as to occupy 
fewer bytes on the diskette). For further information on pricing 
and disk formats available, contact Scripture Software, P.O. Box 
6131-C, Orlando, Florida 32853 or telephone (305) 896-4264. 

By the way, many of you felt I was a bit too hard on the King 
James Version of the Bible. Well, maybe, but I still can't 
understand King James era English very well, so I'll stick to a 
more modem translation. The author of Bible Search feels that 
the New International Version is more of a paraphrase than an 
actual translation, and also that some of the so-called "more 
reliable manuscripts" used in the newer versions really aren't 
(more reliable, that is). For folks like me who simply can't/won't 
read the original King James, he prefers the New King James 
Version, which is simply the original King James updated to 
modern English (yes, the "Thees" and "Thous" have been removed). 
In any case, I didn't mean to step on anyone's toes - except maybe 
those few narrow-minded individuals that insist that the King 
James Version is the ONLY Bible worth reading. 

LETTERS DEPARTMENT - We've received quite a bit of mail this 
time around, so let's get right to it! 

Date: Fri Jun 22, 1984 10S27 pm EDT 

From: Paul Snively / MCI ID5 176-6817 

TO! • Jack Decker / MCI ID: 102-7413 

Subject! Mod 4 routines 



June 22, 19f 



Dear Jack, 



I had a rather enlightening chat with Ted Carter of 
Micro-Labs, Inc. today. These are the people who brought us the 
Graphyx Solution hi-res boards for the Models III and IV, and the 
character generator board for the Model I. Anyway, he was kind 
enough to give us some address equivalencies from the III to the 
IV over the phone. The Model III address is on the left, and the 
equivalent address on the IV running under TRSDOS 6.1.2 is on 
the right. NOTE THAT THE MODEL IV ADDRESSES ARE ONLY 
VALID UNDER TRSDOS 6.1.2!!! 



MODEL IXI 
260DH 
•*1Z1H 
fOAFH 
OA7FH 
OBFZH 
0716H 

15*7H 
19A2H 
08-^7H 
OAOCH 
08A2H 
2337H 



MODEL IV 

39FBH 

7ZECH 

71^ZH 

29F1H 

ZBBEH 

Z&22H 

38EAH 

38F0H 

588AH 

Z78BH 

27S2H 

27EDH 

73*5H 



Well, that's about it. Also, the "normal" Model III RST 6, 
10, and 18 routines are not valid on the IV. Ted said that he had 
to write those routines himself. So, here is the info. Feel free to 
publish in Northern Bytes as long as credit is given to Ted Carter 
of Micro-Labs, Inc. 902 Pinehurst, Richardson, Texas 75080. Talk 
to you later... 

Regards, 
Paul Snively 



Date! Sat Jun 23, 1984 9153 am EDT #«RECEIPT 

From: David R. McGlumphy / MCI ID: 181-7739 

TO! « Jack Decker / MCI ID! 102-7413 

Here's a letter that offers a challenge to someone who's 
looking for a programming challenge. I offer it to you strictly (!) 
verbatim. 



I've noticed that my mailman puts on a pair of gloves before he 
opens my mailbox, and be refuses to bring postage-due mail to my 
door. Thanks, Dave. Your day will come (by the way, Dave's 
address is 4429 Paula Lane, Red Bank, Tennessee 37415 in case 
any of you practical jokers would like to trade notes).] 



Date! Sat Jun 30, 1984 3!29 am EDT 

From: David Dal ton / MCI ID! 183-6752 

TO! • Jack Decker / MCI ID: 102-7413 

Subject! Northern Bytes... 

Jack: I'm a regular customer of the Alternate Source, and I 
want to tell you how much I appreciate Northern Bytes. 

A question: Do you know of any problems in using 
Superscripsit with NEWDOS80 (2.0 and 2.5, Model III) that are not 
corrected by Apparat's raps? I have had the most peculiar thing 
happen repeatedly. When I use a programmable user key, the 
computer seems to drop to ROM BASIC and says Memory size? 
This continues until I reprogram any key, then the problem goes 
away for a while. I am now using Superscripsit 1.02.3, which, as 
far as I know, is the most recent. The same thing happened with 
earlier versions. As far as I know, my memory is perfect. The 
computer has been in for regular maintenance twice in the last 6 
months. I have learned not to let it clobber my files by <W>riting 
to disk before I use a programmable key. But I must admit I 
•like* Superscripsit, and I am committed to using it to edit an 
85,000 word novel. Too late to turn back now. If you know the 
answer I'll be delighted, and if answer by MCI I'll gladly send a 
donation to Northern Bytes, for I imagine your MCI bill must be a 

fJ^l* l * m USlnfl * ModeJ In * NEWDOS 2.5, and a Compukit 
10-meg hard disk. Thanks a bunch, and, again, Long Live Northern 
Bytes. 

- David Dalton, 3558 Bowens Road, Tobaccoville, North Carolina 

27050 
CI am sysop of SF Writers Network, (919) 922-3308, 24 hours. 
300/1200, TBBSI. 

[Editor's note. If anyone can help David, please contact him 
directly as I can imagine he's pretty desperate for an answer if he 
hasn't found one by now. Also please send a copy to us here at 
NORTHERN BYTES and we'll share the answer with everyone.] 



"Dear Al: In the Feb 1982 (Pg 23) TRS-80 Microcomp News 
you have almost given me the answer to a question that the 
"Shack" experts say cannot be done. 

I have a Model 4 (tape only) 64K upgrade, DMP 100 printer & 
Shack Recorder. I would like to conceal my programs from LIST, 
LLIST, CSAVE yet OK on RUN & CLOAD. I used your POKE 
FEEK(16548) ♦ 256 » PEEKU6549), PEEKU6548) ! POKE 
PEEKU6548) -M ♦ 256 ♦ PEEK (16549), PEEKU6549) and after the 
first RUN it will not list Hist but the first line - any attempt to 
list a portion will lock it up for a re-Cload. It can be CSAVED & 
listed before the first RUN & CSAVED after the first RUN. 

I am attempting a Password type operation with tape. Any 
simple solutions or can it be done? 

Leonard M. Brown 

Rl Box 277C 

Denison, Texas 75020" 

It's been a long time since we fooled around with tape, 
hasn't it, boys. I don't have any handy code already available to 
help Mr. Brown, nor do I have the time to help him more than this 
now, but this sounds like a fun project. I think I sec a way to do 
it using the SYSTEM command to load a tape, but it also seems 
like I remember an article about CLOADing machine language. Is 
my memory failing me? Have at it, old-time hackers. 

t Editor's note! Dave reports that he sometimes goes by the 
name Al ReudisuelW?!). This explains the introduction to the 
above letter. If you knew Dave McGlumphy, you'd realize why he 
might have to use a phoney name sometimes. He once sent me a 
letter in a very official-looking envelope. The return address 
was "Federal Health Department, 1416 Government Street S.W., 
Washington, D.C. 83615" and in big letters on the outside of the 
envelope, it said, "HERE IS THE INFORMATION YOU REQUESTED 
ON HOW TO TREAT THE HERPES VIRUS AT HOME." Since then, 



Dear Jack, 

Would you please help me by mentioning a problem I have 
with the Model 4P in Northern Bytes? 

At the moment I have both a Model 4 and a 4P, but economics 
dictate that the 4 must go in favour of the portable. The trouble 
is that my program library is on 80 track double head (external) 
drives. The Model 4P does not support external drives though it 
does support an external hard disk via the 50 pin I/O. I have 
taken the 4P apart and attached a new drive cable (no pins 
omitted) which places the disk controller in the middle, the 
internal drives at the start and the external drives at the end of 
the chain. Despairingly, the 4P will only acknowledge drive or 
1, in any variation or multiples of drive and 1. It would appear 
that the drive select lines are not implemented for the external 
drives (?). Can anyone help? 

The Model 4P technical manual is not available in' Australia, 
is it available yet in the U.S.? I would also appreciate you 
mentioning that I would like to communicate with other TRS-80 
users in the U.S. or Canada. 

I look forward to each issue of Northern Bytes, keep up the 
good work, it is appreciated. 

- Tony Domigan, P.O. Box 150, Thomastown, Victoria 3074, 

AUSTRALIA 

[Editor's note: Once again, I suggest you write directly to Tony if 
you can help him, with a copy to us here at NORTHERN BYTES so 
we can pass on the solution to everyone. However, if you prefer 
you can send a reply to us and we'll forward it to Tony. My first 
thought was to wonder if, in the native Model 4 mode, a command 
such as SYSTEM <DRIVE=2 .ENABLE) would have to be executed 
before an additional drive could be used, but since Tony also has a 
regular Model 4 I'm sure his copies of TRSDOS 6 are already set 
up to enable the additional drive. As for the 4P technical manual, 
I haven't heard anything on that, either. Anyone have any 
information they'd care to pass along?] 



Dear Jack, 

Thank you for Volume 5 Numbers 3 and 4. I have a number of 
comments and suggestions concerning these issues. 

You mention your book on TRS-80 ROM Routines several 
times, without mention of price or availability. How much and 
where? 

I think you missed the point in your review of Volume 6 of 
Dr. Dobbs. As the author of the only TRS-80 specific program in 
the volume I do not consider the tape routine useful any longer 
(Model I, tape only), but there was also a BASIC program which 
allowed embedded) relocatable assembler routines in hexadecimal 
form. I still use a similar routine, refined slightly since then. I 
am not a BASIC fan, but sometimes BASIC is quicker but the 
unrelocatable decimal values really bug me! So far I have never 
seen any published BASIC programs that use the method shown. 
If you are interested I could send an updated routine. 

Concerning multiple double-sided disk drives on the Model I, 
there is a very simple method for expanding your system to more 
than 3 double sided or 4 single sided drives. The proviso is that 
only 3 or 4 of them can be used at any one time. I have 4 single 
sided drives, 2 80-track, one 40-track, and one 8-inch. I can boot 
from either 40 or 80 track disks with the flick of a switch. The 
method can be used to expand the number of drives connected. 
The switch is used to open or close the drive select line to one or 
more of the drives, or to swap the allocation of a drive. The leads 
can easily be mounted on the posts usually used for the drive 
select jumpers. Further details if desired. 

Concerning the number of TRS-80 users "still out there". 
There may be several hundred thousand of them, but they do not 
seem to actively encourage new software development by buying 
software for the computers. After spending probably about 2000 
hours developing a sophisticated program for the Model I, III, and 
4 I have been disappointed by the user response. I'm not 
disappointed by the responses from users, but by the number of 
users. As an almost final resort I have thought of giving it away 
and asking for user contributions to cover costs. 

Concerning the method for repositioning an output file to 
write new information at the beginning. I have recently used the 
method, but have not been able to test it on TRSDOS 1.3. Do you 
have any alternative for this operating system? I have tried it on 
Model I systems, and on TRSDOS 6 on the Model 4 without 
problems. 

Concerning the backup of Super Utility + to a /CMD file, I 
have a method I have used on several versions of the program. It 
was developed for a friend who uses SU+. Personally I prefer 
Superzap and a homemade zap program. This method makes use of 
the fact that SU+ can modify memory, including SU+ itself. Simply 
enter a short routine which will save all registers, move the low 
portion to high memory, and then modify the program to jump to 
this routine on some event such as the SHIFT-BREAK key. The 
NEWDOS/80 DUMP command can then be used to save the result 
on disk. A routine then has to be added to restore the program 
and the registers, and move it back to low memory. Be careful to 
save the interrupt register, since SU+ checks this register for 
"illegal" tampering. Further details are available if desired. 

Concerning Nate Salsbury's "Patch of a Patch". He insists 
on spelling my name incorrectly! He should stick to Arnc, and 
leave the surname out of it. 

Concerning the green or amber monitors for TRS-80 models. 
A friend bought the amber screen from Langley St. Clair for the 
Model III, plugged it in directly, and had no problems at all with 
it. About *100 if I remember rightly. I still have my original 
Model I monitor, which was modified for 220 Volts with an 
internal transformer. It was placed right next to the tube, 
causing it to have constant shakes. Now the transformer is 
removed, and I am using an external unit delivering 110 Volts, 
plus the voltages required by the expansion interface and the 
keyboard unit. 

Concerning the reading of IBM diskettes on the TRS-80. 
Over a year ago I wrote a simple zap program to do this, being 
both able to read and write, I also modified Superzap at the time 
by moving the buffer. Instead of going to Debug, I found it easier 
to use the DM command in Superzap itself to display the sector. 
The zap program used to copy files used the NEWDOS/80 routines 
to read and write, and functioned by setting an appropriate 
PDFJVE value. By the way, the sectors are numbered from 1, not 
0. The copy program was written without any information on the 
disk format, so it would only read contiguous files, and I have not 



bothered to update it since then. Also it would not read 
double-sided disks, since I had no means for testing this. I have 
not given up hope of extending the program some day, but would 
like to be able to read several other formats as well, such as the 
Model 4 CP/M formats, and perhaps also the Color Computer if I 
could get hold of a disk and a description of the format. 

Concerning new commands in NEWDOS/80 or other t 

operating systems. There is a very simple method for addinc, /. 
short commands, containing no more than 248 bytes of code. The 
command is simply assembled to reside in the DOS disk buffer 
area (4300H or 4400H, or perhaps other values). The single sector 
can then be used as a command without disturbing the remainder 
of memory. I have used it for setting up the printer, which I 
usually forget before entering programs. Many of my programs 
have been modified to allow calling NEWDOS/80 commands 
directly by preceding them with a /. For example my EDAS, word 
processor, VisiCalc, etc. 

By the way, talking of EDAS 3.5, there is a bug in the 
cross-reference program. If you define enough names or 
references to fill up memory, then the cross-reference listing 
program will bomb out without warning. Mine has now been 
disassembled and modified to allow several passes through the 
file. It will run as long as all names using a single starting 
letter will fit in memory. 

Also concerning EDAS 3.5, Roy Soltoff seems pleased that it 
will not run under NEWDOS/80. The only function which will not 
operate is the ability to specify some parameters on the program 
call line. The call to the routine which is not defined in NEWDOS 
can easily be bypassed, and Superzap can be used to modify the 
parameters if necessary. I am currently using a highly modified 
version of EDAS 3.5 under NEWDOS/80 without problems. 

I think that's about all for those two issues. Keep up the 
good work now that there are no serious magazines left for the 
TRS-80 user. 

- Arne Rohde, Pilevej 31, 7600 Struer, DENMARK 

[Editor's noteS Ame brings up several interesting points in his 
letter. Here are some comments in response! My book sells for 
•19.95 plus shipping through The Alternate Source (shipping is 
♦3.00 in the U.S. and Canada). The method of repositioning jn 
output file seems to work on everything EXCEPT TRSDOS 1 .3 
I have no idea why, but then TRSDOS 1.3 is my second 1 
favorite DOS (in case you're wondering what my LEAST favorite 
DOS is, I'll just say that I like DOSPLUS, MULTJDOS, and 
NEWDOS/80 better than TRSDOS 1.3). Maybe some of our readers 
could help on this one. I think that breaking the protection on 
Super Utility has become something of a mania among TRS-80 
users, everybody's got a method of doing it. I apologize for the 
misspelling of Arne's surname, on behalf of Nate Salsbury and 
NORTHERN BTTES. It certainly does seem to make more sense to 
use Superzap's DM function instead of exiting to DEBUG to read 
the expanded buffer. I don't know anything about the format of 
the disk directory on a Color Computer (but Would like to, since I 
might have to try and read a CoCo disk someday), can anyone help 
with this? Finally, I hope Arne will document some of the patches 
and zaps he's mentioned and share them with the rest of us!l 

Dear Jack! 

Thanks for sending me a copy of Northern Bytes. That 
particular issue had little to interest a cassette-based amateur 
like me, but I was impressed with the expertise of your 
correspondents in patching machine language commercial software. 

Although I'm cassette-oriented by choice, there is one area 
where it is slowing me down tremendously. My TRS-80 Tape 
Editor/Assembler, Version 1.1, records source and object code at 
500 baud. As I gain ability to write longer assembly-language 
programs, the excessive recording time is beginning to drive me 
up a wall, but I don't know enough, yet, to be able to change the 
coding so that it will run at 1500 baud. 

I was hoping that someone within your sphere of 
acquaintance has addressed this problem, and could provide me 
with some numbers, and instructions as to where to put them in 
the original program, to get me out of this bind. 

Can you help? I'd appreciate it, immensely. 

-Robert B. Koehler, R.D. #4, Box 174, Lake Walton Ro'~~~ v 
Hopewell Junction, New Tork 121 

[Editor's note! Can someone help Bob with his problem? It seems 
I vaguely recall seeing an article outlining such a conversion 



sometime back in one of the '80 magazines (80-Micro or 80-U.S.)i 
but don't remember when or where.] 

Dear Jack! 

Just read the latest issue of NORTHERN BYTES, and I have 
one question. Where do you find the time to write, key in, dig up, 
layout and do the million and one other things that have to be 
done for a newsletter?!? 

I have but one complaint, though. The people doing most of 
the submissions are using NEWDOS! 

Here are three one-liners for the Radio Shack Pocket 
Computer. I am using the PC-3 but I would think all the others 
have the functions to do these. 

The pocket computer has much more memory available to the 
user than the calculator, but it's not as readily available. You 
don't have memory keys to store the display in a memory. These 
three lines give you that ability. 

By hitting two keys, <DEF> and <X, V or Z> the display or 
calculation result is stored in X, V (and Y) or Z. Using <DEF>, 
<V> stores the number in Y and the number rounded to two decimal 
places in V. 

500 "X" J AREAD X i WATT J USING 5 PRINT "X«"JX J END 

501 "Z" ! AREAD Z 5 WAIT : USING ! PRINT 1*"tl i END 

502 "V" J AREAD T ! WAIT J USING : V«dNT«Y«100H.5))/100 J 
PRINT "V="?VJ" Y*"}Y J END 

The first two I saw in a newsletter, the third was born out 
of necessity. 

Keep up the good work. 
- Dave Bower, 572 Longfellow Avenue, Virginia Beach, Virginia 

23462 

[Editor's note! Thanks, Dave, for the one-liners. As for the 
complaint about everyone using NEWDOS, I'd be happy to receive 
articles from users of other DOSes (even ones I don't personally 
happen to like), so as to provide more balanced content in 
NORT HERN BYTES!]. _ ■ - -.-.-. -,_ . JL . J . 

FORTH-WISE 
by Paul Snively 

You may recall from the last Northern Bytes that I am going 
to be writing a regular column in support of TASForth, the Forth 
language package from The Alternate Source, our benevolent 
benefactors. So as not to make a liar out of the editor, here is 
the column! 

You may also recall that I have given some phone numbers 
which I said were BBS numbers where Forth was discussed. I'm 
going to touch on a couple of these in just a little more depth in 
this issue. 

The phone numbers that I'd like to talk about are 
(415) 538-3580 and (206) 759-0415. Both of these BBSes are 
unique in that not only do they SUPPORT Forth, they are written 
IN Forth! The (415) number is 300 baud, whereas the (206) one is 
300/1200 baud. Both use 8 data bits. 1 stop bit and no parity. 

Both of these BBSes are "Forth Trees." What this means is 
that they are BBSes written in Forth and sold by the CommuniTree 
Group. The reason that they are called "trees" is that their 
message structure is - you may nave guessed by now - a binary 
tree. To put it simply, there is a root node (message) on the tree 
called "CONFERENCES." Under this root are some branches. The 
root is always "CONFERENCES," but the branches depend upon the 
SYSOP (sometimes referred to as the Fairwitness) and upon the 
users. Some high level branches might be "CHAT," "INQUIRIES," 
"LANGUAGES," "LIBRARY," and "TO-OPERATOR." 

When you first call up, the tree asks you how wide your 
screen is. The default is 80 characters because the Forth Tree 
was originally written on an Apple. Respond with 64 (or 80 for 
Model 4 users, etc.) The Tree will then ask you if you have 
lowercase capabilities. If the answer is "Yes," just press 
<ENTER>, otherwise type "NO" and press enter. The system will 
give you some hints as to how to read the help section, maybe give 
some current news (usually only two or three lines worth) and give 
you the COMMAND ? prompt. 

OK. Now that you're on, how do you use the system? Well, 
you could go ahead and type READ CONFERENCES. That, 
however, would only get you what was in the root, i.e., 
CONFERENCES. You'd probably be bored. What you really 
SHOULD do is open your buffer for input (if you have that 



capability) and type "i conferences" and press <ENTER>. "i" is 
short for "index" (all of the Tree commands have abbreviations) 
and "conferences" is the node that you want an index of. The 
implication of this is that you can index any node, not just 
"conferences," and this is indeed true. 

Once you have the index, you might want to log off. It's 
easy! just hang up. The Tree will reset automatically. Now dump 
your buffer out to disk and load it into your word processor or 
whatever and take a peek. You probably got some prompts and 
things, but you should also have the titles to all of the messages 
on the tree. Notice that many of the titles are indented. This 
means that the indented message is a branch to the one above it. 
If a message has a lot of "children," as they are called, then the 
children's titles may be indented quite a bit by the time you get 
down to the bottom of that branch. 

Now, find the titles that sound interesting to you. Mark 
these so that you know what to ask for the next time you log on. 
For example, I have a list of titles that says! 

INTERPRETIVE-DO 

NEW-IDEAS 

SQUISH-FORTH 

SOUNDS-GOOD,BUT... 

ONE-BETTER 

SO-WHAT 

INFIX-FORTH 

INFIX-FORTH-2 

ALTERING-COMPILED 

OF-COURSE 

These titles are ones that I intend to examine the next time 
that I log on to the system (hopefully later tonight.) Incidentally, 
these examples are from the Fig-Tree in California, arid their 
number is the (415) one listed above. 

Now that you know what you want to read, log back on and 
when you get the COMMAND ? prompt, type R <title>, where 
<title> is the title of the message that you are interested in. 
Don't type the braces? they are a convention I use to indicate that 
the phrase is a parameter. 

The message will be printed. Pressing "S" will Stop the 
display until another key is pressed and pressing "C" will take 
you back to the COMMAND ? prompt. In fact, "C" will take you to 
the command prompt from ANY command that is executing. 
Remember this! It comes in handy for aborting long indices that 
waste valuable phone time. 

Congratulations. You now know how to read messages on the 
Forth Tree. Another neat feature that you may want to take 
advantage of after your first experience with the Tree is the S 
option on reads. S is short for "starting," and it allows you to 
specify a date to start reading from. So, if you were on the Tree 
on 27-JUN-84 and logged on again on 5-JUL-84, you could type 
"R CONFERENCES S 28-JUN-84" and press <ENTER> and the Tree 
would list every message that had been posted since the last time 
you were logged on. Very handy! Of course, it puts the burden of 
keeping track of the date of your last logon on you, the user, but 
it's really not that bad. 

One thing that you may have noticed through all of this' The 
system has no provision for finding out who you are. Neither of 
the Trees listed above has any password access things or 
inquiries as to who you are. These are open systems. Please 
respect the Fairwitness' forthrightness and refrain from using 
the system to curse, slander, and just generally make a mess of 
things. Just because they don't have passwords now doesn't mean 
that they can't in the future. 

One last thing! the (206) Tree is running on a Model I 
TRS-80, and the Fairwitness of that Tree is also the author of 
that Tree, as well as the version of Forth that it runs under! 
Whew! This guy is prolific, and if you have any questions about 
TRS-80 Forth, he is the one who can answer them! He'll also be 
glad to tell you who to buy his QFORTH from. QFORTH is unlike 
TASForth in many respects, and I'm strongly considering buying 
QFORTH to add to my collection of languages. 

Here are some actual messages from one of the Forth-Trees! 

*»* SQUISH-FORTH 2-MAY-84 
PARENT-NEW-IDEAS USAGE- 98 

How would you like a Forth that doesn't need a metacompiler 
to develop optimized products? Instead, you develop and debug in 
the ordinary way. Then when you're done, the system squeezes 
down (in-place in memory if you wish). Not only are headers and 



compiling/interpreting words eliminated if not needed) but all 
words never used by your product ire automatically squished out - 
even throughout the nucleus - giving the most compact code 
possible 

How to do it? 

Assume a microprocessor with position-independent code 
(otherwise) it's a little harder and less optimum)) Implementation 
is easier if the Forth control structures use relative branching. 
For simplicity in this presentation, assume no advanced or tricky 
code, and assume that all code fields are located two bytes before 
their parameter fields. Address constants must not refer to 
locations inside the program. 

Consider such a program which has been developed and now 
runs correctly. Let's call its final word 'CO'. Now say 'SQUISH 
GO'. The word 'SQUISH' itself will probably be deleted; but 
before then t here's what happens: 

Without making any changes to the Forth system or to your 
program. 'SQUISH' builds a table in some spare memory. The table 
has one entry (of four words) for each dictionary word. The table 
in initialized to zeros. 

The first table entry is the address of the code field of each 
word, in order, filled in by a single pass down the dictionary. The 
second entry is the total length of the object code (including CFA). 
of only those words which could possibly be executed by 'GO'. 
This entry is obtained by a recursive 'shadow execution' of 'GO', 
which traverses every control path of every colon definition (to 
reach every control path, simply don't branch on 'BRANCH' or 
'OBRANCH'), touching every word which could ever be executed. 
and marking the corresponding table-length entry. At the end of 
this shadow-executioni all words which still have zero in the 
length-entry are squeezed out of the table. Those are the words 
which could never have been executed by 'GO'. 

Clearly a simple code routine could use this table (of 
addresses and lengths, of relevant words only) to 'CMOVE' each 
definition and compact the program. (The actual compaction must 
be done in code, because Forth will be destroyed if you choose to 
squish in-place.) But first we must plan to translate the old 
compiled addresses into new ones. Because this translation must 
be done in code, 'SQUISH' first makes it easy - by filling in the 
remaining two fields of the table. 

The third table entry is the new address of the code field of 
each word (i.e. the address after that word's definition has been 
moved during the compaction). These addresses are obtained by a 
"shadow SQUISH", which does not actually compact any code but 
goes through the motions in order to compute the new, 
post-compaction addresses which the words will later have. 

The fourth table entry gives addresses of code for shadow 
execution of special compiled words like XIT', compile-time IT', 
'DO', semicolon, etc. 

Now the little compaction routine in code does the job for 
real. It CMOVEs each relevant definition. Then if that word is a 
colon definition, it does a simple, non-recursive shadow execution 
of it (with the help of the fourth table entry), for the sole purpose 
of knowing for sure which words in the object code are indeed 
compiled addresses! these are translated by the table Cook up in 
first entry, replace by third entry). 
Any problems? 

JSJ 

«*« SOUNDS-GOOD.BUT... 9-JUN-84 
FARENT-SQUISH-FORTH USAGE* 36 

Sounds like a good, innovative idea. Having written a 
decompiler or two though has given me a different outlook on the 
task of "shadow executing" a Forth program. The problem is with 
words like WORD. ." and so on that actually parse arguments out 
of the input stream. You wind up with a lot of special-purpose 
code to properly emulate these pesky instructions. 

My other concern is with the limitation of 
position-independent code. I've written a couple of Forths and 
the requirement of complete position independence would have 
killed me both times. Some processors just don't have what it 
takes to run this kind of code efficiently. 

Maybe the answer is to put together a cross-compiler that is 
less "user hostile" than ones currently available. That's my 
approach, anyway. I'll let you know how it turns out. 

Joe Barnhart 



*** ONE-BETTER 19-JUN-84 
FARENT=SQUISH-FORTH USAGE= 19 

How about a Forth that allows you to create the absolute 
minimal Forth Application (based on what your source needs), still 
allows full use of the editor/assembler/single-step-debugoer, 
etc. and allows execution of this minimal system (without eve< 

outer-interpreter!) and without resident heads hehehehe. 

(Yes ... I have it) 

*** INFIX-FORTH 2-MAY-84 
PARENT=NEW-IDEAS USAGE= 82 

If you thought SQUISH-FORTH was weird... 
This message and its followup (PREFIX-FORTH) suggest 
some of the most radical changes to Forth yet proposed. These 
ideas began half-seriously but keep looking better. 

We start by adding infix to Forth. Why? Some people want 
it. Try writing the quadratic equation in Forth and Basic and see 
which version the public finds easier to read. 

Then why hasn't infix been used before? It's easy to 
translate infix to postfix. But it's hard for an infix language to 
be fully extensible. What about operator precedence? And the 
bizarre restriction that functions take no more than two 
arguments and return no more than one result? And running out of 
special characters for the function names? The APL way isn't for 
everyone. 

But note! what we do with infix, what we use it for, is not 
what needs to be extensible. It's hard to extend arithmetic! 
that's system-programmer work, not the everyday use of an 
extensible language. 

So let's integrate infix and postfix in the same line. (Not as 
strange as it sounds! many languages integrate infix and PREfix, 
which is used for function calls.) And then the beauty is that 
infix becomes more general than usual. For infix expressions can 
now have missing elements, and the Forth stack will supply them. 

We propose an ordinary, garden-variety Forth! it can even be 
Forth-83 standard. Its users never need know that anything is 
different. But if the text interpreter cannot find a word in the 
dictionary, it tries to make an infix "expression" out of it (an 
ordinary number qualifies as an infix expression, of course). Thp- 
the Forth compiler translates the infix to postfix, and compiles 
as ordinary Forth. (Note the run-time speed advantage over mo. 
other interactive infix language systems.) 

Consider some examples of infix expressions. These may be 
used anywhere within ordinary Forth colon definitions. 

Normal infix expressions are like '(A+B)*(C+D)'. That 
expression can be used verbatim in a normal line of infix Forth 
(without the single quotes). This particular expression will take 
nothing from the stack, and return one value to it (because it 
produces one result). 

We also allow normally-illegal expressions like '(+B)*(C+D)'. 
This "expression" takes one argument from the stack, adds it to 
B, etc., and returns one result to the stack. 

We also allow complete "assignment statements", e.g., 
'X=(A+B)#<C+D>\ Here there is no effect on the stack! the 
computed value is not left there because it is stored in 'X'. The 
equal sign when used in an infix expression is essentially the 
FORTH "TO" concept, popular in systems in Europe. 

Infix expressions must have no spaces within them (except 
as noted below), thereby distinguishing what is infix from what is 
ordinary Forth. "WORD' will take each infix expression as one 
token, and when this token is not found in the dictionary, it will 
be parsed and translated by the (extended) Forth compiler. 

Now let's mix infix and postfix. E.g. '5 A*' sets 'A' (a 
constant) to 5. '10+' and '10-' add ten to or subtract ten from the 
number on top of the stack. (Careful of '+10' or '-10', as '+' and 
'-' become unary if there is a space on the left and none on the 
right - a rule which gives us what we would expect anyway, the 
number 10 or -10 pushed onto the stack.) 

Consider the infix "expression" '++'. It adds the top three 
stack numbers (because the three arguments which would normally 
be present in the infix expression are missing) and produces one 
result, which it returns to the stack. Consider '+' alone. It 
similarly adds the top two stack numbers and returns one result. — 
Just as we would expect from ordinary Forth! infix and postfi 
have become one. 

The set of infix operators ('♦', '-', '•', '/', and """) is not 
extensible! these five are all of them. But you can use infix 
expressions to build your own operations, obviously, since these 



expressions can be used anywhere in colon definitions. And you 
can also use postfix, all of Forth and your own words, to build 
infix formulas' Not as obviously. 

Consider '(A+BHM HERE 10 + HKC+D)'. Within parentheses 
may be an infix expression (without spaces), or ordinary Forth 
(with spaces). The ordinary Forth may itself include infix, nested 
to any depth. 

Note some details! 

(1) The expression above is taken and initially parsed as a 
single infix unit, despite the spaces, because the spaces are 
within parentheses used by an infix expression. Obviously a 
change to 'WORD' is necessary. Forth comments, which also use 
parentheses, are not affected, as we shall see. 

(2) The spaces inside parentheses and adjacent to them need 
not actually be written, because, for infix purposes only, a 
delimiter (infix space-equivalent) is always assumed inside a left 
or right paren (never outside of a parent. So '(HERE 10 -O' is just 
as good as '( HERE 10 + )'. Even better - because the former 
cannot be confused with a comment, which requires a left paren 
alone. 

(3) Note that under the rules we have given, the extreme 
cases '(HERE)', '(10)', and '(+)', etc., could be considered either 
infix or postfix. But that's no problem, because either way is 
equivalent. 

To change the subject for a moment, consider type checking. 
Some people want it. The above infix system makes it feasible. 
For within infix formulas, type checking (plus automatic 
fixed-floating conversion, etc.) can clearly be done at compile 
time. And outside of the infix formulas, optional run-time type 
checking (e.g. using an extra type byte attached to every stack 
item) becomes significantly less expensive since the low-level 
arithmetic work, checked at compile time, can be compiled to run 
without this overhead. (And other low-level, speed-critical Forth 
routines can be defined and debugged, then recompiled with the 
run-time checking turned off.) 

Tune in next time for another exciting installment, 
tentatively called 'PREFIX-FORTH'. It looks like we can turn 
Forth around to integrate the ordinary colon (it's already prefix), 
plus Basic-type functions like SIN or SQR (also prefix already), 
plus infix (already works well with prefix functions, e.g. in Basic), 
plus Forth extensibility, plus string stack and also input-stream 
arguments without the bother of quotes, plus handy command 
languages, plus variable numbers of arguments with conditional 
compilation - without losing anything we already have in Forth. 

At least that's what it looks like now. 

JSJ 

«*« ALTERING-COMPILED 12-MAT-84 
PARENT-NEW-IDEAS USAGE- 60 

Logo gives us the ability to redefine procedures (words) that 
are already the components of compiled words. In Forth, that is 
not so. It would be convenient if it were so. Is there a way to do 
it in Forth? Example: say you have a word "circumference" 
defined as follow s: 5 CIRCUMFERENCE DIAMETER PI-TIMES j 
where DIAMETER somehow fetches the diameter and PI-TIMES it 
defined .* PI-TD4ES 22 7 */ } 

Later you find the definition of pi as 355 113 •/ and want to 
use it in the already defined CIRCUMFERENCE. Obviously you 
could define a new PI-TIMES and a new CIRCUMFERENCE - with 
or without a FORGET PI-TIMES first - but is there a way to 
redefine PI-TIMES without having to redefine CIRCUMFERENCE? 

••* OF-COURSE 12-MAY-84 

PARENT-ALTERING-COMPILED USAGE- 58 

Yes, my child, FORTH can do all. Including changing the 
definition of previously defined words. Three methods are: (1) 
Patching the code field and the first two bytes of the parameter 
field to redirect to the later definition. (2) Finding all uses and 
hot patching (risky at best) and best of all (3) Using «DEFER» 
in the manner given by Henry Laxon in Issue 6, Volume 3 of 
FORTH DIMENSIONS. There is a wealth of knowledge in FORTH 
DIMENSIONS. Read and be amazed. 

Thanx, THE GOOD DOCTOR 

«*» INTERPRETIVE-DO 23-MAY-84 
PARENT=SUBMISSIONS USAGE- 95 

The following is a DO word which can be used interpretively 
(usage follows)! 

: /DO 1 WORD TIB 6 80 ERASE HERE COUNT TIB 6 SWAP CMOVE 
1+ SWAP DO IN ! I INTERPRET LOOP TIB @ ! IN ! i 



Usage! 



10 20 /DO LIST 



The list of words after /DO until C/R are executed while the 
loop index is varied from 10 to 20. The current value of the loop 
index is left on the stack for each execution of the list of words. 

Well, that should get you started. If you have any questions 
about TASForth, the Forth-Tree BBSes, or Forth in general, 
contact me, Paul Snively, c/o The Alternate Source, 704 North 
Pennsylvania Avenue, Lansing, Michigan 48906, or directly at 
2820 Jordan Drive, Columbus, Indiana 47203 telephone 
(812) 372-8789, or via MCI Mail, user name PSNIVELY. See you 
next issue! 



A NEW MODEL 4 ROM? Unfortunately, it appears so. As 
many of you know, a NEW Model 4 has appeared with green screen 
(even in the U.S.A. - FINALLY!), relocated arrow keys (heaven 
help you if you have to use a <SHIFTXDOWN-ARROW> plus 
another key combination extensively within a program - this is a 
definite boo, hiss after all this time) and worst of all, revised 
ROMs that modify the original Model III ROM code BELOW 
3000H!!! Those of you that have TRS-80 ROM ROUTINES 
DOCUMENTED can line out the phrase that states that the Model 
III and 4 ROMs are the same below 3000H (will I revise my book? 
Probably not right away. For one thing, I don't have access to one 
of the new Model 4's yet and for another, I'm getting rather tired 
of playing the "Catch-Up" game with Tandy). 

There arc times when I think Tandy should leave well enough 
alone, and (with the exception of the green screen, which was 
LONG overdue) I think this was one of them. If anyone has access 
to one of the NEW Model 4's and would like to document the ROM 
differences for the rest of us, we'd appreciate it (in fact, if the 
article were REALLY well done this might be one of those "once 
in a blue moon" articles that we'd actually PAY for!). 

Thanks to Nate Salsbury and S. C. Williams for bringing this 
to my attention. 



HOW TO GET FREE SOFTWARE is the title of a new book by 
Alfred Glossbrenner, published by St. Martin's Press. This book 
can save the average personal computer user hundreds of dollars. 
If you're a personal computer user and you're not independently 
wealthy, you need this book. This is especially true if you're into 
CP/M, since the author must document just about every source of 
free CP/M software there is, But, he doesn't stop there. He goes 
on to document the other sources of free software for just about 
every popular brand of personal computer now in existence. 

Is the free software any good? Yes!! Is it truly free? 
Depends on where you get it. If you download it from a Bulletin 
Board System in your local calling area (and you're not on 
measured time service), then you could probably say it is truly 
free (assuming you don't put any value on the time it takes you to 
download the software). Otherwise, you may have to pay a few 
dollars to get a disk of "free" software sent to you. You might 
get it from a users group which may or may not charge you a few 
bucks. In any case, the software is truly a bargain, if not "free" 
in the strictest sense of the word. 

As a NORTHERN BYTES reader, you already know about one 
source of free software for the TRS-80 - the TAS Public Domain 
Software Library. Yes, it's mentioned in the book, along with a 
couple of other projects your editor has been involved with (this 
"mention" takes about two pages - thank you, Alfred!). The 
Fairfield County TRS-80 User Group (c/o Alan Abrahamson, 10 
Richlee Road, Norwalk, Connecticut 06851) is also mentioned as a 
group that has a large library of TRS-80 public domain programs 
(however, I'm not sure that they are quite prepared to deal with 
the mail inquiries that the mention in the book will generate, 
since their library has pretty much been for the benefit of their 
local members in the past - in fact, they rarely mention their 
library in their newsletter. Maybe that will change when the 
inquiries start pouring in!). 

Glossbrenner's writing is very readable - not the dry, 
technical style of writing that is so common among 
computer-oriented literature! Novice users will appreciate this 
book both for the "readability" and for the fact that the author 
has brought together a lot of information that the novice user 
especially could benefit from, but that he might not otherwise be 
able to obtain without a lot of time, effort, and persistence in 
asking questions of more experienced users. Get this one for 
yourself or for your computer club library, you'll never regret it! 



QI£aL0JUa4D - A file utility that allows the user to direct 
any file on a disk into a selected directory slot, (C) Joachim 
Kelterbaum, Frankenstr. 305. 4300 Essen 1, West Germany. 

This program is of interest mainly to those programmers who 
write /SYS modules on their own. Those modules require a 
definite directory slot so they can be accessed by the DOS overlay 
loader. Usually it is quite a boring task to establish a file entry 
at the desired directory slot. This program makes it easy. 
The command syntax is as follows! 

DIRSLOT filename</ext:dnr>,dd 
filename may be any valid filename including extension and/or 
drive number if that's convenient. The filename must be followed 
directly by a comma and a two digit decimal number. This number 
gives the slot number the file is to be positioned at. Example! 

DIRSLOT TESTFILE/ABC!2,06 
would place the file TESTFILE/ABC into directory slot number 6 
(thats where SYS4/SY5 normally resides on a system disk). 

CAUTION !!! As this program allows any slot number from 
00 to 9? (if the directory holds that many entries)) you can easily 
destroy your system disk, if you don't exactly know what you're 
doing. You can even replace the BOOT/SYS or the DIR/SYS entry 
by your own file!!! 

The program has error checking to some degree for your 
security. First) you are warned to read this documentation. Any 
invalid input command (parameter errors, slot number too large 
for directory in that particular case etc.) will abort the program. 
If you did not give a drive number the given file is searched and 
the first drive is selected that contains this file. 

The program then checks the directory of that drive. If the 
file entry at the slot number you specified is an FXDE (extent 
entry - a case that happens every 1000 years) there will be no 
exchange done!! (it would be too annoying to rebuild most of the 
directory). The job is aborted then. If that slot contains no entry 
or an inactive entry, the exchange is done without further notice. 
If, however, there is an active file at the selected slot, the user 
will be given the name of that file. The program then asks, if the 
exchange shall be performed or not. Only a reply of 'y' will 
activate the exchange. Any other reply will abort the program. 
The program is smart enough to detect the length in granules of 
the directory and its location (specified by PDRIVE). 



522E 0000 


00190 QUAD 


DEFH 





522E 0000 


00500 ZILAD 


DEFH 





5230 0000 


00510 HE0RC 


DEFH 





5232 0000 


60528 ICZIL 


DEFH 





5234 Ofl 


•0535 zms 


DEFB 


tl 


5235 44 


00510 


DEFH 


•\ 



DEFB 


MH 




DEFB 


SDH 




DEFS 


32 


ffile control block 


DEFB 


1 


Jwi 11 hole error code 


DEFS 


254 


{file buffer 



Jadress of target file in DB5SJF 
J " orig. 
! " HIT entry for target 
! " " orig. 



'Directory Slot ♦ ' 
69 72 45 A3 74 AF 72 79 20 53 AC AF 71 20 23 20 
0002 00550 HSINS DEFS 2 

5248 20 10540 DEFH ' currently holds the following entry!' 
43 75 72 72 45 4E 71 AC 79 20 68 AF AC 41 73 20 
71 48 45 20 44 AF 4C AC 4F 77 69 4E 47 20 45 AE 
71 72 79 3A 
52AD M 00570 
526E 00 00580 

00590 ; 
•120 11AO0 FC8 
528F 00 10411 FCOOE 

10420 ; 
1110 10430 BUFFER 

00440 ; 
5390 2A 00450 SLTHS1 DEFM 

2A 20 1A A9 AC A5 20 2A 2A 20 
539B 03 00440 DEFB 
539C 6E I0A70 SLTHS2 DEFH 

4F 77 20 72 45 73 6? 44 45 73 20 41 74 20 53 AC 
4F 74 20 23 
53G1 03 11480 DEFB 3 
11690 ; 

5362 0A 10710 FXDHS DEFB 

5363 72 11711 DEFH 
65 71 75 49 72 65 64 20 53 AC AF 74 20 69 73 20 
AF A3 63 75 70 A? 45 44 20 42 79 20 41 6E 20 44 
58 44 45 

53D7 0D 10720 DEFB 1DH 

53D6 0A 1(730 ABOHS DEFB IAH 

5309 4A 11740 DEFH 'Job has been aborted' 

6F 62 20 48 41 73 20 42 45 45 4E 20 41 62 4F 72 

71 45 44 

53ED 0A 11750 DEFB IAH 

53EE 0D 11741 DEFB IDH 

53EF A5 1«771 OUST DEFH 'exchange Slots (Y/N) ?' 



'n File n 



'now resides at Slot #' 



IAH 

'required Slot is occupied by an FXDE' 





00100 liHiuuim 






7ft A3 Afl A1 U 67 65 '• *ro W t* ™ ™ '« 11 ">' 




oono ;> 




DIRSLOT/CHD 


i 


ro OJ po OJ oc 0/ OJ 

2F 1E 29 20 3F 










00120 ;i 






X 


5405 ID 


11780 


DEFB 


IDH 






10130 ;» (C) JoachiM Kelterbaun 


i 


510A 0A 


10790 XCHHS 


DEFB 


•AH 






00110 Ji Frankenstr. 305 


I 


5107 2A 


01810 


DEFM 


'n EXCHANGE SELECTED SLOTS n' 




00150 ;i 1301 Essen 1 


i 


2A 20 45 58 43 48 41 4E 47 45 20 53 45 * 45 43 




01140 ;i M 


. Gernany 


i 


544544 20 534C4F5453 20 2A2A 






10170 ;i 






i 


5421 0D 


•0810 


DEFB 


•OH 






•0180 ;i please , read document file i 
10190 Ji DIRSLOT/DOC before you wake use i 




•1820 ; 












•1830 






{Start of progran mm»»i 




00200 !» of this progran 


X 


5800 


10840 


ORG 


5800H 






11210 Jummnn: 






5800 7E 

5801 FEID 


10654 START 
10841 


LD 
CP 


A,(HL) 
•OH 


{get 1st char fron input buffer 
{is it enter? 


8000 


10220 


ORG 


81I1H 




8000 44 


10230 FHDIR 


DEFH 


'DIR/SYS!' 


{Mane of Dir-file to be Modified 


5813 2818 


•1870 


JR 


Z.FJR1 


{Y -> error 


49 52 2F 53 59 53 3A 








5805 11AF52 


•0880 


LD 


DE.FCB 


{point to FCB 


8008 00 


10210 NBDV 


DEFB 


1 


! space for drive nunber 


sees CD1C44 


•1890 


CALL 


441CH 


{extract filespec. 


8009 0D 


•0251 


DEFB 


IDH 




581B 1821 


10900 


JR 


OK 






00240 ; 








581D 0X911 


10911 ERR1 


CALL 


•1C9H 


{print error nssg. 


1E10 


•0271 DDBUF 


DEFS 


7481 


{buffer to hold directory 


5811 211E58 


••920 


LD 


HL.rES 






00280 ; 








5813 UltX 


11930 


LD 


DE,X00H 




5200 


11290 


ORG 


5200H 




5816 010F00 


11940 


LD 


BC.15 






10300 






[constants 


5819 ED60 


1(950 


LDD? 






5200 00 


•1311 SNB 


DEFB 


1 


{will hold target slot I 


5816 C32D40 


•0941 


JP 


402DH 


;-> oos 


5201 00 


10321 ENR 


DEFB 


1 


{low dec. digit of target slot 4 




•1970 ; 








5202 00 


00330 ZNR 


DEFB 


1 


{high 


581E5I 


11980 HES 


DEFH 


'Parameter Error' 


5213 00 


10340 DM 


DEFB 


1 


! target drive 1 


61 72 61 60 65 74 65 72 20 45 72 72 AF 72 




5204 00 


10351 grnnb 


DEFB 


• 


it grans of directory in target disk 


582D 10 


•0991 


DEFB 


• 




5205 00 


10340 SLTHX 


DEFB 


1 


inax. allowable slot • 




•mo ; 








000F 


11370 FHJIAfl 


DEFS 


15 


{holds na*e of file to be raved 


582E7E 


I1I1C OK 


LD 


A,(HL) 


{get following 2 dec. digits 


0002 


11381 SLTTX 


DEFS 


2 


{target slot < (string) 


5B2F DA30 


11128 


SUB 


3(H 


as target slot t 


010B 


11391 CONFU. 


DEFS 


11 


[converted filename (directory fornat) 


5631 3BQA 


11138 


JR 


CERR1 




5222 0A 


11410 


DEFB 


•AH 




5833 FE0A 


•1140 


CP 


•AH 




5223 00 


00410 


DEFB 


IDH 




5835 30D4 


• 1150 


JR 


NC.ERR1 




5221 0000 


•1121 COUNT 


DEFH 


1 


{rel. pos • of target file in DJffiBUF 


5837 320252 


11140 


LD 


(ZNR), A 


-- •- 


522A 00 


11130 XPOS 


DEFB 


• 


ix-pos " 


563A23 


•1170 


INC 


H. 




5227 00 


11440 YPOS 


DEFB 


t 


Jy-pos 


5836 7E 


11180 


LD 


A,(HL) 




5228 00 


•0450 sorgmb 


DEFB 


t 


(slot 1 of orig. file 


58X D430 


11190 


SUB 


30H 




5229 00 


•1461 


DEFB 


1 




583E 38C0 


• 1101 


JR 


CERR1 




522A 00 


10170 CHT7JL 


DEFB 


• 


|rel pos * of orig. file in DIRBUF 


5840 FE0A 


•1111 


CP 


•AH 




522B 00 


1(480 


DEFB 


















8 



5812 30C9 


• 1120 


JR 


HC.ERR1 






58F1 C028H 


1 01900 


CALL 


H28H 


{close file again 


58H 320152 


01130 


LD 


<ENR),A 






58F1 3A0352 


! 01910 


LD 


A,(DNR> 


{plug drive # into FUDK buffer 


5817 3A0252 


01110 


LD 


A.IZW) 






58F7 C630 


01920 


ADO 


A.30H 




581A CB27 


01150 


SLA 


A 






58F9 320880 


01930 


LD 


<M3DV),A 




581C 17 


01140 


LD 


B,A 






58FC 211080 


01910 


LD 


HL,FHDIR 


{prepare to open DIR/SYS on that drive 


5810 CB27 


01170 


SLA 


A 






58FF CD1CH 


01950 


CALL 


nicH 


{extract filespec. 


581F CB27 


01180 


SLA 


A 






5902 219052 


11940 


LD 


H.,BUFFER 


{HL -> file buffer 


mi 80 


01190 


AH) 


A,B 






590S 0600 


11970 


LD 


8,1 


J254 byte records 


5852 17 


01200 


LD 


B,A 






5917 CD20H 


11980 


CALL 


H20H 


{open file 


5853 3A0152 


01210 


LD 


A, (EH?) 






591A CD3FH 


11990 


CALL 


H3FH 


Jpos. to start of file 


5856 80 


01220 


ADO 


A,6 






590O 3A0152 


12110 


LD 


A,<Gft«e> 


{calCt • of sectors to be mved 


5857 320052 


01230 


LD 


(SNB),A 


{put slot 1 ->SNB 




5911 17 


12010 


LD 


6,A 




585A C0A85B 


01210 


CALL 


SIGNUP 


{print sign up nssg. 




591 1 CB27 


12020 


SLA 


A 




5850 3E0O 


01250 


LD 


A,0 


{clear FJDttH buffer 




5913 CB27 


12030 


SLA 


A 




585F 210452 


01240 


LD 


HL.FJLNAri 






5915 80 


12010 


ADO 


A,B 




5842 77 


01270 


LD 


<HJ,A 






5916 17 


•2050 


LD 


6,A 


{put result to B 


5843 110752 


01280 


LD 


DE.FJJJAH+l 






5917 111A80 


12140 


LD 


DE.DIRBUF 


{read (B) sectors and nove to OIRBUF 


5864 010EOO 


01290 


LD 


BC.11 






591A C5 


12070 TRFDIR PUSH 


ec 




5849 EDeo 


01300 


LOIR 








591B 05 


12080 


PUSH 


OE 




5846 212013 


01310 


LD 


H.1320H 


Jpoint to filename in input buffer 591C 114F52 


12090 


LD 


OE.FCB 




584E 110452 


01320 


LD 


DE.FJLNArl 






591F CD3411 


•2100 


CALL 


U34H {READ SECTOR 


5871 7E 


0133O TRAMS 


LD 


A,(HL) 


;mvc it to FHNAM 




5922 01 


12110 


POP 


DE 




5872 FE2C 


01310 


CP 


t 






5923 219152 


•2120 


LD 


HL.BUFFER 




5871 2805 


01350 


JR 


Z.OUTll 






5924 010001 


12130 


LD 


BC.254 




5876 12 


01360 


LD 


(DE),A 






5929 EDB1 


12110 


LDIR 






5877 23 


01370 


DC 


HL 






592B CI 


•2150 


POP 


BC 




5878 13 


01380 


TJC 


DE 






592C 10EC 


•2140 


DJHZ 


TRFDIR 




5879 18F4 


11390 


JR 


TRANS 






5?2E 114F52 


•2170 


LD 


DE,FCB 




5876 3E00 


11110 OUT11 


LD 


A.1DH 


{append OH 




5931 CDZ8H 


12180 


CALL 


U28H 


{close file again 


5870 12 


11110 


LD 


<DE),A 






5931 CDE35A 


12191 


CALL 


NAHCON 


Jconvrt. nam of target file to DIR fori 


587E 23 


11120 


DC 


HL 






5937 211752 


•2218 


LD 


HUCONFB. 


{search for target file entry in DJJtSUF 


587F 111552 


11130 


LD 


DE.SLTTX 


iwve target slot 1 to SLTTX 


593A 111F82 


12210 


LD 


DE.DD8UF+215H 


5882 0402 


uno 


LD 


B,2 






593D 0408 


12220 


LD 


B,ll 




5881 71 


11150 TR2 


LD 


A,(HL) 






593F CD1D5B 


12230 


CALL 


SEARCH 




5885 12 


11140 


LD 


<OE),A 






5912 EMB2152 12210 


LD 


BC,(COUNT) 


{(BC) ' rel pos 1 of file entry 


5884 23 


11170 


INC 


HL 






5914 DA435B 


•2250 


JP 


C.NFDERR 


{error if not found 


5887 13 


•1180 


DC 


DE 






5919 CDC901 


•2240 


CALL 


11C9H 


;as 


S888 UFA 


11190 


DJHZ 


TR2 






591C 79 


12270 


LD 


A,C 


{calc, slot 1 of target file 


588A 114F52 


11510 


LD 


DE.FCB 


{open target file to 


see, 


5910 17 


12280 


LD 


B,A 




5880 219052 


11510 


LD 


H.,BUFFER 


Jif it exists and on 


which 


591E CB3F 


12290 


SRL 


A 




-5890 0400 


11520 


LD 


B,l 


{drive it is located 




5950 CB3F 


12300 


SRL 


A 




392 CD2W 


11530 


CALL 


112* 


[open file 




5952 CB3F 


12310 


SRL 


A 




o895 3A7552 


01510 


LD 


A,(FCB+4) 


(extract drive * fro* FCB 


5951 322452 


12320 


LD 


(XPOS),A 




5898 320352 


01550 


LD 


<DNR),A 


! ->DNB 




5957 CB27 


12330 


SLA 


A 




589B CB27 


11540 


SLA 


A 


{calc. adress of DOCA byte in 


5959 CB27 


12310 


SLA 


A 




589D17 


11570 


LD 


B,A 




PORVt table 595B CB27 


12350 


SLA 


A 




589E C827 


11580 


SLA 


A 






595D1F 


12340 


LD 


C,A 




58A0 CB27 


11590 


SLA 


A 






595E78 


12370 


LD 


A,6 




58A2 80 


01600 


ADO 


A,B 






595F91 


12380 


SUB 


C 




58A3 C409 


11610 


ADO 


A,9 






5941 322752 


12390 


LD 


<TPOS),A 




58A5 * 


01420 


LD 


C,A 






5943 3A2452 


12100 


LD 


A.(XPOS) 




58A4 1)400 


01430 


LD 


6,1 






5944 C83F 


12111 


SRL 


A 




58A8 217113 


11410 


LD 


HL,1371H 






5948 C63F 


12120 


SRL 


A 




58AE 09 


11450 


ADD 


HL.BC 






594ACB3F 


12131 


SRL 


A 




58AC 71 


11440 


LD 


A,(HL) 






594CCB27 


kho 


SLA 


A 




58AD 320152 


01470 


LD 


<GRNNB),A 


{put it to GRNNB 




596ECB27 


•215« 


SLA 


A 




5880 17 


11480 


LD 


6,A 


Jcalc. rax allowable 1 of slots 


5971 CB27 


12141 


SLA 


A 




5881 C827 


11490 


SLA 


A 






5972 1F 


•2171 


LD 


C,A 




5883 C827 


11710 


SLA 


A 






5973 3A2652 


•2180 


LD 


A,(XPOS) 




5885 80 


11710 


ADO 


A,B 






5974 91 


12191 


SUB 


C 




5884 D402 


11720 


sue 


2 






5977 17 


•2511 


LD 


B,A 




58B8 CB27 


01730 


SLA 


A 






5978 79 


12511 


LD 


A,C 




58BA C827 


01710 


SLA 


A _ 







5979 C827 


•2521 


SLA 


A 




588C CB27 


11750 


SLA 


A 






597B CB27 


12530 


SLA 


A 




56BE 321552 


11760 


LD 


taTHXt.A 


jput it to SLTNX 




5970 C827 


12510 


SLA 


A 




58C1 17 


11771 


LD 


B,A 


{check for alloable slot t input 


597F 1F 


12550 


LD 


C,A 




58C2 3A0052 


•1780 


LD 


A,(SNB) 






5980 3A2752 


•2541 


LD 


A.(YPOS) 




58C5 90 


11790 


SUB 


B 






5983 CB27 


•2570 


SLA 


A 




58C4 2802 


01800 


JR 


Z.EFR2 






5985 C827 


•2580 


SLA 


A 




58C8 3821 


11811 


JR 


C0K2 






5987 CB27 


•2590 


SLA 


A 




58CACDC901 


11821 ERR2 


CALL 


UC9H 


{error if target slot 1 not 


5989 81 


•2611 


ADO 


A,C 




58CD 210658 


11830 


LD 


HL,rS2 




allowable 


598A81 


•2611 


ADD 


A,B 




5800 11003C 


01810 


LD 


DE,X1»H 






S98B 322852 


•262t 


LD 


(SORCNB),A 


{put result -> SORNB 


5803 011300 


•1850 


LD 


BC.19 








12430 { 








.5806 ED80 


11840 


LD» 








598E 3EI2 


•2410 


LD 


A,2 


{set KTF to integer 


308 C32D10 


11870 


JP 


102DH 






5990 32AF10 


12451 


LD 


(1DAFH),A 




JBOB 49 


11881 HS2 


oent 


'illegal slot iwnber' 




5993 212852 


•2440 


LD 


HL.SORGNB 




6C 6C 45 47 61 4C 21 73 «C tit 71 20 4£ 75 40 42 




5994CDF709 


12671 


CALL 


19F7H 


{copy SORCNB to ACCUM 


65 72 












5999CDBE0F 


•2480 


CALL 


•FBEH 


{convt to string 


58EE 114F52 


11891 0K2 


LD 


DE.FCB 






599C E5 


•2490 


PUSH 


HL 


{save adress 



599D 3E0D 
59VF 213611 
59A2 77 
59A3 219653 
59A4 C047H 
59A9 Z10452 
59AC CD67W 
59AF 219C53 
59B2 CD67H 
59B5 El 
59B6 CD67M 
5969 3A((52 
59BC 04(6 
59BE C83F 
59C0 10FC 
59C2 04(6 
59C1 CB27 
59C4 HFC 
59C8 57 
59C9 3A0IS2 
59CC 92 
59CD 17 
59CE CB3F 

5901 C63F 

5902 CB3F 
59M -IF 
5905 78 
59D4 EA07 
5908 CB27 
59DA C827 
590C C827 
59DE 81 
590F82 
59E0 3Z2AS2 
59E3 211552 
59E4 114652 
59E9 (1(200 
59ECFJB0 
59EE 210A82 
59F1 3A2A52 
59F1 17 
59F5 112100 
59F8 19 
59F9 UFO 
59FB7E 
59FC FE90 
59FE2IF 
SAIO 21B253 
5A(3 CD47H 
5A06 210853 
5A09CD47H 
5AIC C32D16 
5A0FC847 
5A11 2828 
5A13 (415 
5A15 23 
SAW UFO 
5A18 111752 
5A16 (1(600 
SA1E EDBt 
5A2( 213152 
SA23 CD&7U 
5A24 211752 
5A29CD47U 
5A2C 21EF53 
5A2FCD4711 
SA32 arnio 
5A35E45F 
5A37FE59 
5A39 2IC8 
5A3B 21(451 
5A3ECD47H 
5M1 2A2152 
5AH 0415 
5A14 29 
5A17 10FD 
5M9 11MB2 
5A1C 19 
5M0 222C52 
5A50 114F52 



02710 

02710 

02720 

02730 

02710 

02750 

02740 

02770 

02780 

02790 

02800 

02810 

02820 

02830 DV41 

02810 

02850 

02840 HU41 

02870 

02880 

0289O 

07901 

029U 

02920 

02930 

02910 

02950 

02940 

02970 

02980 

02990 

03000 

03010 

03020 

03030 

13010 

03050 

03040 

03070 

03080 

03090 

03100 

03110 

03120 FDENTR 

03130 

03110 

03154 

03140 

03170 

03180 

13190 ABORT 

03200 

03210 

03220 NOFX 

03230 

03218 

03250 adv 

03240 

03270 

03280 

03290 

03300 

03310 

03320 

13330 

03310 

03350 

03340 

03370 

03380 

03391 

03100 XCHFLS 

(3110 

(312( 

03130 

03110 M32 

03150 

03140 

03170 

(3180 

03190 



LD 

LD 

LD 

LD 

CALL 

LD 

CALL 

LD 

CALL 

POP 

CALL 

LD 

LD 

SRL 

DJNZ 

LD 

SLA 

DJNZ 

LD 

LD 

SUB 

LD 

SRL 

SRL 

SRL 

LD 

LD 

AM) 

SLA 

SLA 

SLA 

ADO 

ADO 

LD 

LD 

LD 

LD 

LDIR 

LD 

LD 

LD 

LD 

ADO 

DJNZ 

LD 

CP 

JR 

LD 

CALL 

LD 

CALL 

JP 

BIT 

JR 

LD 

DC 

DJNZ 

LD 

LD 

LOIR 

LD 

CALL 

LD 

CALL 

LD 

CALL 

CALL 

AM} 

CP 

JR 

LD 

CALL 

LD 

LD 

ADD 

DJNZ 

LD 

ADD 

LD 

LD 



A,0DH 

HL.1136H 

(HL),A 

K-.SLTHS1 

H67H 

H.FILNArl 

H67H 

H_,SLTHS2 

H47H 

HL 

H47H 

A,(SNB) 

8,6 

A 

DV41 

B,6 

A 

HU41 

D,A 

A,(SNB) 

D 

B,A 

A 

A 

A 

C,A 

A,B 

07H 

A 

A 

A 

A,C 

A,D 

(CHTZIL),A 

HL.SLTTX 

DE.HSDfi 

BC,2 



! append 0DH 



jNessgl target file found at 



islot S0RCM8 

Jcalc. rel . pos of orig. 
!entry in DIRBLF 



file 



5A53 012800 

5A56 ED80 

5A58 2A2A52 

5A58 0405 

5A5D Z9 

5A5E KFD 

5A60 1KAB2 

5A63 19 

5A41 222E52 

5A67 ED5B2C52 03590 

5A4B 012000 0340O 

5A4E ED60 03410 

5A70 216F52 03420 

5A73 ED5B2E52 03630 

5A77 012000 03410 

5A7A ED60 

5A7C 3A2152 

5A7FCD8D5B 

5A82 223052 

5A85 3A2A52 

5A88 C0805B 

5A8B 223252 

5A8E 2A30S2 

5A91 E5 

5A92 7E 

5A93 17 

5A91 2A3252 

5A97 7E 



03500 

03510 

03520 

03530 

03510 HU32 

03550 

03540 

03570 

03580 



»pirt result -> CMTZ3L 
Jinset target slot ( (as string 
intoflSDS) 



5A98 1F 
5A99 78 
5A9A 77 
5A9B El 
5A9C 79 
5A9D77 
5A9E 116F52 
5AA1 Z10080 
5AA1 CD1CH 
5AA7 219052 
5AAA 114F52 
5AAD (4(0 
5AAF CD20H 
5AB2 1A 
5AB3 C8C7 
5AB5 12 
!»t 1st byte of that file entry 5^ qjjf^ 



lis it an FXDE ? 

!no ->NOFX 

lyes! error + abort 



hVfDIRBUF+200HJseareh for original file entry 

A,(CMTHL) at target slot I 

B,A 

0E.32 

H,DE 

FDEHTR 

A,(KJ 

90H 

KZ.NOFX 

HL.FXDrS 

H47H 

HL.ABOHS 

H47H 

102DH 

1,A 

Z.XCHFLS 

B,5 

HL 

ADV 

DE.CONFIL 

BC.ll 



tis file active ? 
Jno ! exchange file entries 
! display file nam 



Jyes 



HL.ZILMS 

H47H 

HL.CTJNFIL 

H47H 

HL.QUST 

U67H 

0019H 

5FH 

'Y' 

KZ.ABORT 

HLfXDflS 

H47H 

HL.fCOUNT) 

6,5 

HL.HL 

H32 

DE.DIRBUF+ZMH 

HL.DE 



iask if exchange is to be done 



5AB9 3A(152 
5ABC 17 

5ABD CB27 

5ABFC827 

5AC1 80 

5AC2 17 

5AC3 210A80 

5AC4 C5 
5AC7 119052 
5ACA 010001 
5AC0 ED60 
5ACF E5 
5AD0 114F52 
5AD3 CD3CH 
5AD4 El 
5A07 CI 
5AD8 10EC 
5AOA 114F52 
5ADO CD28H 
5AE0 C32D10 



Jget keybd. entry 

,'convt to upper case 

lis it Y ? 

!no ! abort 

{yes ! exchange entries 



5AE3 211752 

SAE4 3E20 

5AE8 77 

5AE9 111852 

. . , . ± 5AEC 010AOO 

Jget rel pos of target file entryj^g: mi 

Sand calculate adress in DIR8UF 5^ 2 j 0432 
5AF1 111752 
5AF7 04(9 
5AF9 7E 
5AFA FEZF 



<QUAD),HL {result to QUAO 

DE.FC8 Jtransfer file entry to FCB 



5AFC 280C 
5AFEFE3A 



03450 

(3440 

03470 

03480 

(3491 

(37(0 

03710 

03720 

03730 

03710 

03750 

(3740 

(377( 

03781 

(3790 

03800 

03810 

03820 

03830 

03810 

(3850 

(3840 

03870 

(3880 

03890 

03900 

03910 

0392( 

(3930 

(39K 

03950 

03940 

03970 

(3980 

03990 

01000 

01010 

01020 TRF 

01030 

01010 

01050 

01040 

01070 

01080 

01090 

01100 

01110 

(1120 

01130 

01110 

01150 ; 
01140 ; 

01170 NAMCON 

(1180 

01190 

01200 

01210 

01220 

(1230 

01210 

(1250 

01240 TRFN 

(1270 

01280 

01290 



LD 
LDIR 
LD 
LD 
ADO 
DJNZ 
LD 
ADO 
LD 
LD 
LD 

LDIR 
LD 
LD 
LD 

LDIR 
LD 
CALL 
LD 
LD 
CALL 
LD 
LD 

PUSH 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
POP 
LD 
LD 
LD 
LD 
CALL 
LD 
LD 
LD 
CALL 
LD 
SET 
LD 
CALL 
LD 
LD 
SLA 
SLA 
ADD 
LD 
LD 
PUSH 
LD 
LD 
LDIR 
PUSH 
LD 
CALL 
POP 
POP 
DJNZ 
LO- 
CAL! 
JP 



Jcalc, adress of original file 
!in DTR8UF 



BC.32 

HL.HXTZH.) 

B,5 

HL.HL 

hU32 

OE,DB8UF+200H 

HL.DE 

(ZU_AD>,H_ Jresult to 7JLAD 

DE,(OUAD) ;«ove that file entry to slot of target file 

BCf 32 



LD 

LD 

LD 

LD 

LD 

LDIR 

LD 

LD 

LD 

LD 

CP 

JR 

CP 



HL.FC6 

DE,(7JLAD) 

BC.32 

ACCOUNT) 

CALC 

(HEORGJ.HI 

A,(CNT7JL) 

CALC 

<HEZD.),HL 

HL.(HEORC) 

HL 

A,(HL) 

B,A 

HL,(HE7JL) 

A,(HL) 

C,A 

A,B 

(HL),A 

HL 

A,C 

(HL),A 

0E,FC8 

HL.FILDIR 

H1CH 

HL.BUFFER 

DE,FC8 

8,0 

H20H 

A,(DE) 

(,A 

(DEM 

M3FH 

A,(GRNMB) 

B,A 

A 

A 

A, 6 

B,A 

HL.DIRBUF 

EC 

DE.BUFFER 

BC.254 



Jnove target file entry to slot of orig. file 



,'exchange the HIT entries in an 
lanalogous Banner 



Jextract filespec DIR/SYSIX 



iopen file 

Iset write protect state 

Jpos to start of file 

!now nove DIRBLF back to file 



HL 

DE,FC8 

H3CH 

HL 

BC 

TRF 

DE.FCB 

H2BH 

102DH 



H,CONFTL 

A,2(H 

<HJ,A 

OE.COMFILil 

BC.10 

HL,FIUiAH 

DE.CONFIL 

B,9 

A,(ti.) 

'/' 

Z.OUTl 



jconvert filename in FILHAM to directory 
Jfonwt. i.e. 8 chrs. filenaoe padded with blanks 
(Plus 3 chars extension (padded) 
Jpirt result to COMFIL 
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56110 C8 


01300 


RET 


Z 


5601 FEOD 


01310 


CP 


•DH 


5E:03 C8 


01320 


RET 


Z 


5601 12 


01330 


LD 


(DE),A 


5P05 23 


01310 


DC 


HL 


5604 13 


•1350 


DC 


DE 


-~ "'07 UFO 


11340 


DJNZ 


TRFN 


J? C9 


•1370 


RET 




*0A 23 


01380 OUT1 


DC 


HL 


5E0B 111F52 


•1390 


LD 


DE,C0NFD-+8 


5B0E 0403 


0H00 


LO 


B,3 


5B10 7E 


•H10 TRXT 


LD 


A,(HL) 


5B11 FE3A 


•1120 


CP 


".' 


5E13C8 


•1130 


RET 


Z 


5B11 FEOO 


•mo 


CP 


•OH 


5614 C8 


•1150 


RET 


Z 


5B17 12 


11160 


LD 


(DE),A 


5618 23 


01170 


DC 


HL 


5619 13 


tH80 


DC 


DE 


seiA ufi 


•1190 


DJNZ 


TRXT 


561C C9 




RET 




5F1D C5 


•1510 SEARCH 


PUSH 


BC 


5B1E 05 


•1550 


PUSH 


DE 


5B1F E5 


11540 


PUSH 


HL 


5B20 1A 


H570 cm 


LD 


A,<DE) 


5B21 BE 


H580 


CP 


<HL> 


5B22 2021 


11591 


JR 


NZ.FAIL 


5B21 23 


M4O0 


DC 


HL 


5625 13 


•1610 


DC 


DE 


5624 7A 


•1420 


LD 


A,D 


5B27B3 


•1430 


OR 


E 


5628 2833 


11410 


JR 


Z.BUFND 


5B2A 1IF1 


•1450 


DJNZ 


CPIT 


5B2C El 


11440 FOUND 


POP 


HL 


5E2D 01 


•1470 


POP 


DE 


5B2E CI 


11480 


POP 


BC 


5B2FE5 


•1490 


PUSH 


HI 


s**W D5 


•1700 


PUSH 


DE 


L EB 


•1710 


EX 


OE.HL 


^J2 11FBFF 


•1720 


LD 


DE.-5 


5B35 1? 


•1730 


ADD 


HL.DE 


5634 7E 


•1710 


LD 


A,<ML) 


5B37 C847 


•1750 


BIT 


1.A 


5639 2808 


•1740 


JR 


Z.KHLED 


5636 01 


81770 


POP 


DE 


5E3C El 


11780 


POP 


HL 


563D EMB2152 M790 


LD 


K, (COUNT) 


5B11 AF 


I18JJ 


XOR 


A 


5B12C9 


•1810 
•1820 ; 


RET 




5B13 Dl 


M830 KILLED 


POP 


DE 


5BUE1 


•1810 


POP 


HL 


5615 C5 


M850 


PUSH 


BC 


5B14D5 


H840 


PUSH 


DE 


5B17E5 


•187J 
•1880 ) 


PUSH 


HL 


5B18E1 


M890FAH 


POP 


HI 


5E19 Dl 


11900 


POP 


DE 


5B1A EMB2152 01711 


LD 


BC,(COUNT) 


581E 03 


•1920 


DC 


BC 


5B1F EM32152 01930 


LD 


(COUNT) ,BC 


5B53C1 


M910 


POP 


BC 


5B51E5 


•195« 


PUSH 


HL 


5B55 212000 


M940 


LD 


HL,32 


5B58 19 


M971 


ADD 


HL.DE 


5B59EB 


•I960 


ex 


DE.HL 


5B5AE1 


M990 


POP 


HL 


5B5B 18C0 


150(0 
15010 ; 


JR 


SEARCH 


5650 El 


15020 BUFND 


POP 


HL 


5B5E01 


15(30 


POP 


DE 


>2SFC1 


15010 


POP 


BC 


3 AF 


15150 


XOR 


A 


^1 3F 


•5041 


CCF 




5B42 Cf 


•5070 
15080 ; 


RET 





5B43 COC901 


05090 NFDERR 


CALL 


01C9H 


5B44 214F5B 


•5100 


LD 


HL.HFHES 


5B49CD47H 


•5110 


CALL 


H47H 


5B4C C32D10 


15120 


JP 


102DH 


5B4F44 


15130 NFtCS 


DEFH 


'file entry could not be found' 



49 4C 45 20 45 4E 71 72 79 20 43 4F 75 4C 41 21 
6E4F7120 4245 20 444F754E41 



5B8C 0D 



DEFB tOU 



5B8D 17 
5B8E CB3F 
5B9t CB3F 
5B92 CB3F 
5991* 
5B95 78 
5B94 E407 
5B98 4F 
5899 24(0 
5B9B 0405 
5890 29 
5B9E UFO 
S8AI 1410 
5BA2 19 
5BA3 I1IA81 
5SA4 09 
5BA7 C9 



{search for string pointed to by (HL) 

{start search «t (DE) 

{natch string has (B) bytes 

iif search fails, increment (DE) by 32 5BA8 CDC901 



{increment COUNT by 1 

iif file entry is not active, 90 on 

;C set if no watch else reset 



5BAB21B55B 
5BAECD47H 
5BB1 CM9J0 
5BB1 C9 

5BB5Z0 



LD 


B,A J 


SRL 


A ? 


SRL 


A ; 


SRL 


A 


LD 


C,A 


LD 


A,B 


AND 


•7H 


LD 


L,A 


LD 


H,l 


LD 


B,5 


ADD 


HL,H_ 


DJNZ 


X32 


LD 


B,t 


ADD 


HL,BC 


LD 


BC,DBWJF+1I0H 


ADD 


HL.BC 


RET 




CAU 


I1C9H U 


LD 


HL.SUPHS 


CALL 


H47H 


CALL 


0M9H 



{calculate adress of HIT entry in DIRBuT 
(B) = rel pos. of entry in OIRBUF 
on exit (HL) = desired adress 



DEFH 



{present sign-up Message 



DDBLOT' 



•5110 

•5150 ; 

•5140 CALC 

15170 

15180 

•5190 

15200 

•5210 

•5220 

•5230 

•5210 

•5250 

•5241 X32 

•5270 

(528( 

•5290 

15300 

15310 

•5320 

15330 { 

15310 SIGNUP 

15350 

15340 

15371 

15380 

•5391 ; 

15110 SUPHS 

21 21 21 20 20 21 21 2( 20 2t 21 21 21 21 2t 21 
21 21 2» H 19 52 53 1C f 51 

5801 IA 15111 DEFB (AH 
5BD1 (A (5120 DEFB (AH 

5802 2( 15130 DEFH ' (C) Joachin Kelterbaun' 
21 20 Zl 20 20 20 2t 28 13 29 21 1A 4F 41 43 48 

49 40 2» « 45 4C 71 45 72 42 41 75 40 
58FI (A (5110 DEFB IAH 
SBF1 tA (5150 DEFB (AH 
5BF2 71 15140 DEFH 'this progran nay blow your diskettes if used 

48 49 73 20 70 72 4F 47 72 41 4D 2( 40 41 79 20 unprowrly' 

42 4C 4F 77 21 79 4F 75 72 20 41 49 73 46 45 71 

71 45 73 21 49 44 20 75 73 45 41 20 75 4E 7t 72 
4F 70 45 72 4C 79 

5C29 (A 15170 DEFB IAH 

5C2A 79 I5W DEFH 'you are URGED to read the instructions first' 
4F 75 2« 41 72 45 21 55 52 17 15 H 2« 71 4F Zl 

72 45 41 41 2( 71 48 65 21 49 4E 73 71 72 75 43 

71 49 4F 4E 73 21 44 69 72 73 71 
5C54 M 15190 DEFB (AH 
5C57 (A 15510 DEFB (AH 
5C58 (A I55H DEFB (AH 

5C59 7( 15520 DEFH 'press any key to continue' 

72 45 73 73 2( 41 4E 79 2( 4B 45 79 2( 71 4F 21 

43 4F 4E 71 49 4E 73 45 

5C72ID 15530 DEFB (OH 

(5510 { 
5S(( (5550 END START 

l((0( TOTAL ERRORS 



ASMS 5308 

CALC 5B80 

OIRBUF BOM 

ERR2 5BCA 

FILDIR 8((( 

HEORG S23( 

HS2 58DB 

NBDV BOW 

0K2 58EE 

SEARCH SB1D 

SLTTX 5215 

TR2 5881 

TRXT 5B1( 

YPOS 5227 



ABORT 5A(4 

CNTZD. 522A 

DHR 5203 

FAIL 5B18 

FILNAM 5216 

HE7JQ. 5232 

HSD6 5216 

NFTJERR 5B43 

0UT1 5BSA 

SIGNUP 56A6 

SNB 52(( 

TRANS 5871 

X32 5B90 

ZHAO S22E 



ADV 5A15 

COHFIL 5217 

DV41 39BE 

FCB 524F 

FOUND 5B2C 

KILLED 5B13 

HU32 SA5D 

NFHES 5B4F 

OUT11 587B 

SLTHS1 5391 

SORGNB 5228 

TRF 5AC4 

XCHFLS 5A3B 

7JLHS 5231 



BUFFER 529( 

COUNT 5221 

EKR 5201 

FCODE 528F 

FXDHS 53B2 

102 SA14 

KJ41 39C1 

NOFX 5A(F 

QUAD S22C 

SLTHS2 539C 

START 5811 

TRFDK 591A 

XCHHS 51(4 

ZNR 52(2 



BUFND SB5D 

CPIT 5B2( 

ERR1 5800 

FDENTR 59FB 

GftNKB 52(1 

NES 581E 

MAflCON 5AE3 

OK S82E 

OUST 53EF 

SLTNX 52(5 

SUPHS 5885 

TRFN 5AF9 

XPOS 5224 
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by Thomas G, 



HanTin ffl and 



David Bi Lewis 



Computing can be frustrating! Have you ever typed in a 
great program, only to be greeted by BASIC'S "OUT OF MEMORY" 
error, or to find that the program is so badly set up that it runs 
too slowly? Filing it usually means doing a lot of re-typing. 

MERGELINE is a short (97-byte) utility that takes care of 
this problem. It allows you to merge lines in your BASIC 
programs quickly and easily, making editing very simple, 
MERGELINE runs on your TRS-80 Model I, III, or 4 or 
TRS-80-compatible computer, disk or non-disk, with any amount 
of memory, 

The general syntax is MERGE (optional spaces) LINE 
(optional spaces) *####, where *##*# is an existing line in your 
program. MERGELINE splices together this line and the line 
following it, reducing your program by one line and saving the 
bytes that BASIC uses to point to it. MERGELINE produces an 
error message if either line does not exist. 

Here is an example of MERGELINE's use. Part of your 
program might bet 

10 FOR G * 15360 TO 16383 
20 POKE G,191 
30 NEXT 

After typing MERGELINE 10 <CR>, the program looks like! 

10 FOR G ■ 15360 TO 16383:P01CE G.191 
30 NEXT 

And typing another MERGELINE 10 puts the entire program 
on one line. MERGELINE is clearly a useful utility for editing 
your programs. 

How to Load it 
When you enter BASIC, answer the MEMORY SIZE? question 
with a number that leaves at least 97 bytes at the top of memory. 
The routine is totally relocatable, so you can put it anywhere in 
memory. For a 48K machine, you might use 65400. For 32K, 48900 
is reasonable, and 32600 is fine for a 16K machine, Then load and 
run the program MERGELN/BAS in listing 1, Answer the 
LOADING ADDRESS Question with the number you used for the 
MEMORY SIZE? query. Note that you can also give a negative 
number} because 32767 is the largest positive integer which can 
be expressed in two bytes, a larger positive integer is expressed 
as itself minus 65536. Thus, -136 is the same as 65400, and 
MERGELINE accepts both. You should see the word "DONE" 
printed on the screen. You can then type NEW and load your own 
program. The normal MERGE for disk-based machines will work if 
LINE does not follow. 

How it Works 

The BASIC program does little more than POKE the routine 
into memory. It also causes a jump to the MERGE routine to be 
first filtered through the MERGELINE routine, That way, the 
program can check for the LINE token. 

The source code is in listing 2. It is just for demonstration! 
you should not run it directly from DOS. MERGELINE requires 
that BASIC be loaded. 

The first part of the routine just checks for the LINE token. 
If it is not present, then the program jumps to the normal MERGE 
routine. Otherwise, the line number is stored in DE, and the lines 
are checked for in memory. If either is missing, MERGELINE 
returns to BASIC with an error message. Otherwise, it checks to 
make sure that the combined length of the two lines will not 
exceed about 245 bytes. 

If there are no errors, the routine starts, at line 410. It 
replaces the end byte of the first line with a colon. Then 
MERGELINE squeeies out the four-byte index to the second line. 
ROM BASIC routines are used to reset all the pointers, and the 
new length of the program is stored. Then MERGELINE jumps 
back into BASIC, and you can continue with your program. 

Notes 
MERGELINE is a command, not a statement. It can be used 
in a program, but it will halt execution. The line number must 
also be numeric, and not an expression. 



Also, be wary of producing a line too long to LIST or EDIT. 
Because BASIC replaces keywords with one-byte tokens, a line 
can be fewer than 255 bytes in memory, but be too long when 
re-expanded, 

MERGELINE is a useful addition to your library. Enjoy it. 

10 CLS:PRINTTAB(21)"MERGELINE version i.o":print:prin' ~" 

NPUT"LOADINGADDRESS";L!IFL<0THENL=L+65536 

20 FOR X=LTOL+96!READA! N=X!GOSUB30: POKEN.AiB-B+AJNEX 

T! IF B-U583THENFRINT"DATA ERROR'JSTOP ELSEN=L+5!GOSU 

B30:POKEN,FEEK(16780):N=N+1:POKEN,PEEK(1678D:POKE16780, 

L-INT(L/256)«256:P0KE1 6781 ,L/256:PRINT"DONE":END 

30 IFN>32767THENN=N-65536 

40 RETTJRNIDATA 43,215,254,156,194,0,0,35,205,90,30,225,205,44, 

27,48,72,35,126,183,40,67,43,229,197,197,94,35,86,225,235 

50 DATA 237,82.17,245,0,223,193,225,48,51,197,43,54,58,35,229,23 

5,42,249,64,63,237,82,229,193,225,229,209,35,35,35,35,237 

60 DATA 176,223,237,91,164,64,205,252,26,42,249,64,43,43,43,43,3 

4,249,64,205,97,27,195,193,29,30,14,33,30,28,195,162,25 





11131 ; 


MERGELDC 




I1M1 ; 


This is the 


! source code for the routine. It splices 




nisi ; 


BASIC lines 


i together. 




ioim ; 








III7I ) 


Do not run 


this progran directly. Use the BASIC 




11180 ; 


progran in 


this article. 




11091 ; 






reot 


into 

01111 


ORG 


IFIIOH 


fooi 2E 


11121 


DEC 


HL {PuHTf BACK TO MERGE TOKEN 


Fill 07 


11131 


RST 


lW {PROCESS OUT SPACES 


F002FE9C 


11110 


CP 


154 {CHECK FOR LD£ TOKEN 


FMl CZIill 


00151 


JP 


NZ,0000 .}D" NONE, USE USUAL NERCE COMMAND 




ohm 




{THE ADDRESS IS FILLED IN BY THE BASIC PROGRAM 


F0I7Z3 


10170 


DC 


HL {POINT TO DIGIT 


F008 CD5A1E 


01181 


CALL 


1E5AH {GET LDE NUMBER, RESULT H DE 


F10BE1 


10190 


POP 


HL {REMOVE RET AXRESS 


FI1C CD2C1B 


II2II 


CALL 


1B2CH {SEARCH FOR LINE M MEMORY 


FIIF 3018 


10210 


JR 


NCN0LDE {ERROR D~ NO TARGET LDE 


Fill 23 


11221 


INC 


HL {POINT TO MSB OF ADDRESS FOR NEXT LDC 


F012 7E 


10230 


ID 


A,(HL> — . 


FI13B7 


00210 


OR 


A {If 1, THEN NO NEXT LDE TO SPLICE 


FIH2M3 


00250 


JR 


Z.N0LDC {PRODUCE THE ERROR 


FI16 2B 


00241 


DEC 


a {START OF SECOND LDE 


FI17E5 


11271 


PUSH 


HL {SAVE IT 


F018C5 


10280 


PUSH 


BC {SAVE START OF FDiST LDE8 


F019C5 


00290 


PUSH 


EC 


F01A5E 


00X0 


LD 


E,(HL) {HOVE LDE ADDRESS 


FI1B23 


10311 


DC 


HL 


FI1C 54 


10321 


LD 


D,(HL) { TO DC. 


F01DE1 


003X 


POP 


HL {START OF TARGET LDC 


F01EEB 


00310 


EX 


OE.HL {SNITCH POINTERS 


FI1FE0S2 


11351 


sec 


HL,DE {HWERGED LDE'S LENGTH 


FI21 11F5II 


10340 


LD 


DE.215 {DE* REASONABLE LENGTH 


F1210F 


01371 


RST 


18H {COMPARE Hi AW DE 


FI25C1 


IIX1 


POP 


BC 


F124E1 


00390 


POP 


HL {RESTORE STACK 


FI27 3K3 


0M00 


JR 


NC.TOOBIG {IF IDES TOO LONG. 


F029C5 


OHIO 


PUSH 


BC 


FI2A2B 


IH20 


DEC 


HL {PODfT TO END OF TARGET LDE 


FI2B343A 


IHX 


LD 


(HL),':' {REHOVE ZERO END BYTE 


FI20 23 


00H0 


DC 


HL 


FI2EE5 


11150 


PUSH 


HL 


FIZFFJJ 


00140 


EX 


0E.HL IDE IS EOL ♦ 1. 


FI3I 2AF9H 


00170 


LD 


HL,(14433> {HL IS END OF PROGRAM +1 


FI33 3F 


00180 


CCF 




F131ED5Z 


00190 


SBC 


HL,DE {DISTANCE FROM THE EOL.. 


FI34E5 


00500 


PUSH 


HL {..TO THE END OF THE PROGRAM.. 


FI37C1 


00510 


POP 


BC {..DfTOBC. 


FIX El 


01520 


POP 


HL ;hl«l *u. 


FI39ES 


oosx 


PUSH 


HL 


FI3AD1 


11511 


POP 


DE }.. AND SO IS DE 


FIX 23 


10550 


DC 


HL {SKIP OVER NEXT LDE'S POINTERS 


FIX 23 


11541 


DC 


HL 


FIX 23 


••571 


DC 


HL — 


FI3EZ3 


11581 


DC 


HL 


FI3FED6J 


10590 


LDDi 


{HOVE PROGRAM OVER UNHEEDED 1 BYTES 


FMl El 


01400 


POP 


HL {BEGINNING OF LDE 


FM2 EMBrHI Hill 


LD 


DE,(1M1H> JBEGDKDC OF PROGRAM 
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F046 CDFC1A 


I04ZO 


CALL 


1AFCH 


[FIX LINE POINTERS 


fW) ZAFWO 


1163(1 


LD 


HL,U4633> ;Q€ OF PROGRAM POINTER 


F01C2B 


•0646 


DEC 


HL 


(SHRINK THE PROGRAM BY FOUR BYTES 


TtV> 2B 


00651 


DEC 


ML 




F0«2B 


00661 


DEC 


HL 




FW2B 


10671 


DEC 


HL 




FB5C Z2F940 


•06811 


LD 


(16433),*. 5SAVE KM UALUE 


F053 CW11B 


mn 


CALL 


1661H 


JCLEAR VARIABLES 


F056 OC11D 


00701 


JP 


1DC1H 


(RETURN TO BASIC 


F059 1EOE 


M710 HDLDC 


LD 


E,H 


JCODE FOR UNDEFINED LDC ERROR 


F05B 21 


11721 


DEFB 


21H 


(HIDE NEXT INSTRUCTION 


FI5C 1E1C 


10731 TOOBIC 


LD 


E,28 


JCODE FOR STRING TOO LONG ERROR 


FIX C3A219 


(0711 


JP 


19A2H 


;S£M> AN ERROR AW RETURN TO BASIC 


Ftoe 


108(0 


DC 


IFI0OH 




10011 TOTAL ERRORS 








NOLDC F15V 


TOOBIC FOX 







LOWER CASE DESCENDERS FOR UNE FRINTER VU AND 
DMP-100 by Robert B. Koehler [Editor's note! Bob is a cassette 
system user, and the programs below are intended for use with a 
cassette-based system. However, I believe the BASIC program 
(used only long enough to POKE the machine code into high 
memory) will work under Disk BASIC if BASIC is entered with zero 
files (use BASIC O or BASICO under some DOSes)]. 

This program uses the graphics capabilities of the Line 
Printer VII and DMP-lOO to substitute more conventional-looking 
characters for the lower case g,j,p,q< *nd y. As part of a 
word-processor or similar program, a line of up to 79 text 
characters will be processed and printed with each call. It is not 
relocatable. However, it can be re-assembled with any starting 
address in the ORG statement of the source program. 

The accompanying demonstration program contains 
everything needed to POKE the machine code into the top of a 
16K, 32K or 48K RAM. It can be streamlined, for use with any one 
of these memories, as follows! 

For 16K RAM! 

1. Add to the end of line 10- :POKE 16527,125 

2. Delete lines 12 through 35 and 2000 through 3050 

For 32K RAM! 

1. In line 5, change 125 to 189 

2. Add to the end of line 10- SPOKE 1*527,189 

3. Delete lines 11, 13 through 35, 1000 through 1050 and 
3000 through 3050 

For 48K RAMS 

1. In line 5, change 125 to 253 

2. Add to the end of line 10- SPOKE 16527,253 

3. Delete lines 11, 12, 15 through 35, and 1000 through 2050 

The subroutine is entered with the line to be printed in 
string AP. Two output strings are generated! T for the main 
bodies of the characters, and B for the descenders. Graphic line 
feeds are included at the end of each string. 

Briefly, the subroutine works as follows! 

The VARPTR addresses for T and B, and the length of AP 
plus 3, are stored on the stack. The length of AP is also put in 
register B, the address of the start of AP in DE, the address of 
the start of T in IX, and the address of the start of B in IT. If 
the length of AP is zero, graphics line feeds are put in T and B. 
Otherwise, the ASCII value for each character in AP is examined. 
If it is not one of the five to be changed, that value is put into T 
and the ASCII value for a blank goes into B. If the character is to 
be changed, the graphics codes for the main body of the character 
are added to T, and those for the descender to B, using the Block 
Move instruction, LDIR. Register C, which is accumulating a 
count of the number of bytes in T and B, is incremented for each 
unchanged character, and increased by nine for each changed 
character. Register B is decremented for each character of AP 
that is processed. When the processing is complete, the three 
graphics line feed characters are added to T, and C is incremented 
after each one. The value in C is then compared with the length of 
AP plus 3. If they are the same, there are no descenders in the 
line, so a length of 3 for B is stored in its VARPTR address, and 
the graphics line feed characters are put in B. If there are 
descenders in the line, any blanks at the end of B are removed, 
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back to the last descender (this shortens the string, and saves 
printing time). The three graphics line feed characters are then 
added. The final length of B is stored in its VARPTR address, 
followed by the address of the start of B, then the same is done 
for T, and the subroutine ends. 

Because of the small capacity off the buffer in the LP VII, 
the printing of a long line of text with multiple extenders could 
require as many as six passes of the print head. The DMP-lOO, 
with its larger buffer, will print such a line with two passes. 

The BASIC program listing follows, and is in turn followed 
by the source code listing! 

1 REM LOWER CASE DESCENDERS (LPDESC) FOR LP- VII AND DM 
P-100 

2 REM BY! ROBERT B. KOEHLER, R.D. #4, BOX 174 

3 REM HOPEWELL JUNCTION, NY 12533 (914)226-7543 
5 POKE 16561,1 HPOKE 16562,125 

io clear iooo:defstr a,b,t:defint I-LJDIM K(2)!L«=0:POKE 16 
526,12 

11 FOR 1=32012 TO 32312SREAD J!POKE I,J!NEXT 

12 FOR I=-17140 TO -16840JREAD JIPOKE I.JINEXT 

13 FOR I=-756 TO -456SREAD J!POKE I.JiNEXT 
15 INPUT "<1> FOR 16K 

<2> FOR 32K 

<3> FOR 48K-JIM 

20 ON IM GOTO 25,30,35 

25 POKE 16527,125!GOTO 40 

30 POKE 16527,189!GOTO 40 
35 POKE 16527,253 

40 CLSIPRINT "INPUT LINE(S) TO BE PRINTED - (79 CHARS/UN 

E MAX)" 

50 AP=*"!INPUT APJGOSUB 100JGOTO 50 

100T-="*:b="-!K(0)«VARPTR(T):K(1>=VARPTR(B):K(2>*VARFTR(AP) 

110 L-USR(VARPTR(K(0)H 

120 LPRINT T*,B!!RETURN 

1000 DATA 205,127,10,14,3,94,35,86,35,13,40,3,213,24,246,26,71,19 

8,3,245,235,35,94,35,86, 1 4,0,22 1 ,33,57, 1 26,253,33,28,1 27, 1 20,254 ,0, 

40,96,26,254,103,40,18,254,106,40,47,254 

1010 DATA 112,40,49,254,113,40,51,254,121,40,53,24,57,217,33,223 

,125,221,229,209,1,9,0,237,176,213,221,225,253,229,209,1,9,0,237,1 

76,213,253,225,217,121,198,9,79,24,36,217,33,241,125 

1020 DATA 24,221,217,33,3,126,24,215,217,33,21,126,24,209,217,33 

,39,126,24,203,221,119,0,253,54,0,32,12,221,35,253,35,19,5,32,160,2 

21,54,0,18,12,221,54,1,10,12,221,54,2,30 

1030 DATA 12,241,225,185,32,20,54,3,253,33,28,127,253,54,0,18,25 

3,54,1,10,253,54,2,30,24,18,65,253,43,253,126,0,254,32,32,3,5,24,24 

4,253,35,1 12,24,224,35,17,28,127,1 15,35 

1040 DATA 114,225,113,35,17,57,126,115,35,114,201,18,128,184,19 

6,196,168,252,128,30,18,128,128,132,132,132,131,128,30,18,126,128 

,128,128,128,253,128,30,18,128,128,132,132,132,131,128,30,18,128, 

252 

1050 DATA 168,196,196,184,128,30,18,128,135,128,128,128,128,128 

,30,18,128,184,196,196,168,252,128,30,18,128,128,128,128,128,135, 

128,30,18,128,188,192,192,160,252,128,30,18,128,128,132,132,132,1 

31 128,30 

2000 DATA 205,127,10,14,3,94,35,86,35,13,40,3,213,24,246,26,71,19 

8,3,245,235,35,94,35,86,14,0,221,33,57,190,253,33,28,191,120,254,0, 

40,96,26,254,103,40,18,254,106,40,47,254 

2010 DATA 112,40,49,254,113,40,51,254,121,40,53,24,57,217,33,223 

,189,221,229,209,1,9,0,237,176,213,221,225,253,229,209,1,9,0,237,1 

76,213,253,225,217,121,198,9,79,24,36,217,33,241,189 

2020 DATA 24,221,217,33,3,190,24,215,217,33,21,190,24,209,217,33 

,39,190,24,203,221,119,0,253,54,0,32,12,221,35,253,35,19,5,32,160,2 

21,54,0,18,12,221,54,1,10,12,221,54,2,30 

2030 DATA 12,241,225,185,32,20,54,3,253,33,28,191,253,54,0,18,25 

3,54,1,10,253,54,2,30,24,18,65,253,43,253,126,0,254,32,32,3,5,24,24 

4,253,35,112,24,224,35,17,28,191,115,35 

2040 DATA 114,225,113,35,17,57,190,115,35,114,201,16,128,184,19 

6,196,168,252,128,30,18,128,128,132,132,132,131,128,30,18,128,128 

,128,128,128,253,128,30,18,128,128,132,132,132,131,128.30,18,128, 

252 

2050 DATA 168,196,196,184,128,30,18,128,135,128,128,128,128,128 

,30,18,128,184,196,196,168,252,128,30,18,128,128,128,128,128,135, 

128,30,18,128,188,192,192,160,252,128,30,18,128,128,132,132,132,1 

31,128,30 

3000DATA205,127,10,14,3,94,35,86,35,13,40,3,213,24,246,26,71,19 

8,3,245,235,35,94,35,86,14,0,221,33,57,254,253,33,28,255,120,254,0, 

40,96,26,254,103,40,18,254,106,40,47,254 

3010 DATA1 12,40,49,254,1 13,40,51, 254,121, 40,53,24,57,217,33,223, 



253,221,229,209,1,9,0,237,176,213,221,225,253,229,209,1,9,0,237,17 

6,213,253,225,217,121,198,9,79,24,34,217,33,241,253 

3020DATA24,221,217,33,3,254,24,215,217,33,21,254,24,209,217,33, 

39,254,24,203,221,119,0,253,54,0,32,12,221,35,253,35,19,5,32,160,2 

21,54,0,18,12,221,54,1,10,12,221,54,2,30 

3030 DATA12,241,225,185,32,20,54,3,253,33,28,255,253,54 ,0,18,253 

,54,1,10,253,54,2,30,24,18,65,253,43,253,126,0,254,32,32,3,5,24,244 

,253,35, 1 1 2,24,224,35, 1 7,28,255,1 15,35 

3040 DATA114,225,1 13,35,17,57,254,115,35,1 14,201,18,128,184,196 

,196,168,252,128,30,18,128,128,132,132,132,131,128,30,18,128,128, 

128,128,128,253,128,30,18,128,128,132,132,132,131,128,30,18,128,2 

52 

3050DATA168,196,196,184,128,30,18,128,135,128,128,128,128,128, 

30,18,128,184,196,196,168,252,128,30,18,128,128,128,128,128,135,1 

28,30,18,128,188,192,192,160,252,128,30,18,128,128,132,132,132,13 

1,128,30 

•8100 ; lpdesc - descenders for lp vn t dhmoo 

BOtC Hill 

BOOC CO7F0A 10126 

BOOF 0E03 00130 

BOH 5E 10110 LPS 

6012 23 00150 

B013 54 00160 

BOM 23 00170 

B015 00 10180 

B014 2803 01190 

B01B D5 00210 

BD19 18F4 00210 

B018 1A 00220 LPA 

B01C 17 00234 

B01D C603 00210 

B01F F5 002S0 

BD20 EB 0(240 

6021 23 00270 
8022 5E 00280 

BDZ3 23 00290 
6021 56 00300 
BD25 OEII 00310 
B027 DD2139BE 10320 
BDZB FD211C8F 00330 
E02F 78 00340 
BD30 FEOO 00350 
BD32 2840 00340 
BD31 1A 00370 IK 

B035 FE47 00380 

B037 2812 10390 

BD39 FE4A 00100 

B03E 282F 00110 

BOX FE70 00120 

BD3F Z831 4M3Q 

6011 FE71 00410 

BD43 2833 00150 

BM5 FE79 00140 

BD17 2835 10170 

6019 1839 10180 

BMBD9 10190 LPD 

BMC 21DFBO 00500 

BMF DOES 00510 UK 

6051 Dl 00520 

6052 010900 00530 
6055 ED6I 00510 
BD57 D5 00550 
6058 D0E1 00540 
B05A FDE5 01570 
B05C Dl 00580 
B05D 011900 00590 
BO40 EDBO 00600 
8042 D5 00410 
B063 FDE1 00420 
BD45D9 00430 
BD44 7? 00410 
BD67 C409 01450 
B069 1F 00440 
BD4A 1821 00470 
BD6CD9 00480 LPE 
BD4D 21F180 10490 
8O70 1800 00700 
BD72 D9 00710 Iff 
6073 2103BE 00720 



ORG 


18396 




CALL 


2487 ! 


! VARPTR<K<0» Dl HL 


LD 


C,3 




LD 


E,(HL) 


! VARPTRIT t B) ON STACK, 


DC 


HL 


; VARPTR(AP) Dl DE 


LD 


D,<HL) 




DC 


HL 




DEC 


C 




JR 


Z.LPA 




PUSH 


DE 




JR 


LPS 




LD 


A,(CE) 




LD 


B,A i 


: LEN(AP) Dl REGISTER B 


ADO 


A,3 




PUSH 


AF J 


LEN<AP)+3 ON STACK 


EX 


DE.HL 




DC 


HL 




LD 


E,(HO 


( START. ADDR. OF AP Dl DE 


DC 


HL 




LD 


D,(HL) 




LD 


C,0 




LD 


K.TST 


; START. ADDR. OF T Dl K 


LD 


IY.BST 


; START. ADDR. OF B Dl IY 


LD 


A,B 




CP 





; CHECK FOR EMPTY STRING 


JR 


Z.LPS 




LD 


A,(DE) 


( GET A CHARACTER 


CP 


113 


[ IS IT A LHR.CASE G? 


JR 


Z.LFU 




CP 


104 


! IS IT A LHR. CASE J? 


JR 


Z.LPE 




CP 


112 


j IS IT A LHR. CASE P? 


JR 


Z,LPF 




CP 


113 


! IS IT A LMR. CASE 0? 


JR 


Z.LPG 




CP 


121 


! IS IT A LHR. CASE Y? 


JR 


Z.LPH 




JR 


LPJ 


! NOT A SPEC. CHARACTER 


EXX 






LD 


HL,GST 


; ADDR. OF L.C. G CODE 


PUSH 


» ;i 


WE GRAPH. CODE FOR BODY 


POP 


DE 


; OF CHAR. TO T 


LD 


BC,9 




LDD? 






PUSH 


DE 




POP 


n 




PUSH 


IY ; HOVE CRAPH. CODE FOR DESC. 


POP 


DE 1 


! OF CHAR. TO B 


LD 


BC,9 




LDtt 






PUSH 


DE 




POP 


IY 




EXX 






LD 


A,C 




ADO 


A,9 




LD 


C,A 




JR 


LPL 




EXX 






LD 


HL.JST 


; ADDR. OF L.C. J CODE 


JR 


LPK 




EXX 






LD 


HL.PST 


i AODR. OF L.C. P CODE 
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B076 1807 


06730 


JR 


LPK 




B07BD9 


00710 LPG 


EXX 






6079 2115BE 00750 


LD 


HL,QST 


; ADOR. OF L.C. CODE 


BD7C 18D1 


•0760 


JR 


LPK 




607ED9 


01770 LPH 


EXX 






BD7F 21Z78E 00780 


LD 


HL,YST 


! ADOR. OF L.C. Y CODE 


B082 18CB 


00790 


JR 


LPK 




6081 007711 


1 00800 LPJ 


LD 


<»+•), A 


; PUT CHAR. Dl T 


BD87 FD340020 10810 


LD 


(IY+0),32 


J PUT BLANK DIB 


6088 OC 


00820 


DC 


C 




BD8CD023 


00830 


DC 


IX 




BD8EFD23 


00810 


DC 


IY 




BO90 13 


00850 LPL 


DC 


DE 




BD91 05 


11840 


DEC 


B 




8092 20A0 


00870 


JR 


N2,LPC 




8091 DD34I012 00880 LPS 


LD 


(TX»0>,18 


! PUT GRAPH. LDC FEED 


BD98 OC 


11890 


DC 


C 


; IN T 


BD99 DD36010* 009O0 


LD 


<IX+1>,14 




B09D OC 


00910 


DC 


C 




BD9E D036021E 009Z0 


LD 


<IX+2>,34 




60A2 OC 


00930 


DC 


C 




6DA3F1 


01910 


POP 


AF 


', L£N(AP>+3 


BOA1 El 


00950 


POP 


HL 


! WARPTR(B) 


BOA5B9 


00960 


CP 


C 


; CHECK FOR NO DESC'S. 


BOA4 2011 


10970 


JR 


NZ.LPH 




BOA8 3413 


10980 


LD 


(HL>,3 


} D" NO DESC'S. PUT ONLY 


BDAA FD211CBF 10990 


LD 


IY.BST 


; GRAPH. LDC FEED Dl B 


6DAE FD340012 01000 LPR 


LD 


<IY+0>,18 




BDB2 FD3401IA 01011 


LD 


<IY+1),14 




6084 FD34021E 01020 


LD 


<IY+2>,30 




60BA 1812 


01030 


JR 


LPN 




eoec ii 


01040 LPH 


LD 


B,C ; SHORTEN B TO END AT LAST DESC. 


BDB0FD2B 


01050 LPP 


DEC 


IY 




B06FFD7EOO 


•1060 


LD 


A,(IY+4) 




BDC2FEZ0 


01071 


CP 


32 




60C1 2003 


•1180 


JR 


NZ.LFQ 




B0C4 05 


01090 


DEC 


B 




60C7 18F1 


01100 


JR 


LPP 




BDC9 FD23 


OHIO LPS 


DC 


IY 




6OC8 70 


01121 


LD 


(HL),B 




BDCC18E0 


11130 


JR 


LPR 




BDCE23 


•1110 LPN 


DC 


HL 




BDCF 111CBF 


11151 


LD 


DE.BST 




B0D2 73 


•1160 


LD 


(HL),E ! START. ADDR. OF B TO 


BDD3 23 


•1171 


DC 


HL 


', YARPTR<6)+U2 


600172 


•1180 


LD 


(HL).D 




8005 El 


01190 


POP 


HL 




B004 71 


01201 


LD 


<HL),C i 


LEN(T) AW START. ADDR. OF 


BD07 23 


01211 


DC 


HL 


i T TO WWPTR(T) 


B006 1139BE 


01221 


U> 


DE.TST 




6008 73 


•1231 


LD 


(HL),E 




BOOC 23 


•1210 


DC 


HL 




B0OD72 


•1250 


LD 


(HL),D 




BOOECf 


11244 


RET 


• 
» 


RETURN TO BASIC PROGRAM 


BODF128I 


•1274 GST 


DEFH 


B412H J 


START OF L.C. G CODE 


BDE168C1 


11284 


DEFH 


•C1B8H 




60E3C1A8 


11294 


DEFH 


MBCtH 




BDE5FC80 


11344 


DEFH 


84FCH 




B0E7 1E12 


11311 


DEFH 


121EH 




BOE9B080 


01324 


DEFH 


8480H 




BDEBBiei 


41334 


DEFH 






B0ED8183 


41314 


DEFH 


838* 




BDEF801E 


41350 


DEFH 


1E80H 




BOFl 1280 


01360 JST 


DEFH 


B012H 


[START OF L.C. J CODE 


GOF3 8080 


•1370 


DEFM 


8I84H 




6OF5 8080 


01380 


DEFH 


8484H 




B0F7 FD80 


01394 


DEFH 


84FDH 




B0F9 1E1Z 


11100 


DEFH 


121EH 




BDFB8I80 


urn 


DEFH 


8484H 




B0FDB181 


•1120 


DEFH 


BUnn 




B0FF8483 


01130 


DEFH 


8381H 




BE01 801E 


•mo 


DEFH 


1E84H 




BE03 1281 


01150 PST 


DEFH 


8412H 


JSTART OF L.C. P CODE 


BE05FCA8 


01140 


DEFH 


4A8FCH 




6E07 C1C1 


11170 


DEFH 


4C1C1H 




6E09B880 


01180 


DEFH 


84B8H 




BE08 1E12 


01190 


DEFH 


121EH 




6E0D8487 


01500 


DEFH 


8780H 




BEOF 8080 


01510 


DEFH 


8480H 




BE11 8180 


01520 


DEFH 


8080H 





BE13 801E 


01530 


DEFH 


1E80H 






eeis 1280 


01510 QS1 


DEFH 


8012H 


JSTART OF L.C, 


. O CODE 


BE17 B8C1 


01550 


DEFH 


•C«8H 






BE1? C1AB 


01560 


DEFM 


0A8C1H 






EE1B FC80 


01570 


DEFH 


80FCH 






6E1D 1E12 


01580 


DEFM 


121EH 






BE1F 8(80 


01590 


DEFH 


8080H 






BE21 8(80 


01600 


DEFM 


B080H 






BE23 8187 


01610 


DEFH 


8780H 






BE25 801E 


01620 


DEFM 


1E80H 






BE27 1280 


01630 YST 


DEFH 


8012H 


[START OF L.C 


I. YCODE 


BE2T BCCO 


01610 


DEFH 


0C0BCH 






BE2BCOA0 


01650 


DEFM 


M0C0H 






BE2DFC80 


01660 


DEFH 


84FCH 






BE2F 1E12 


01670 


DEFM 


121EH 






BE31 8080 


01680 


DEFM 


BI80H 






BE33 8181 


01690 


DEFM 


B18* 






BE35 8183 


01700 


DEFM 


8381H 






BE37 8I1E 


01710 


DEFM 


1E80H 






•DE3 


01720 TST 


DEFS 


227 


JSTART OF T 




00E3 


01730 BST 


DEFS 


227 


;START0FB 




0000 


01710 


END 








10000 TOTAL ERRORS 










BST BF1C 


CST 


BCDF JST 


BDF1 


lpa eoie 


LPB BD11 


LPC B031 


LFD 


ewe LPE 


BD6C 


LPF B072 


LPC B078 


LPH »7E 


LPJ 


G081 LPK 


BD1F 


m eo?o 


LPH BDBC 


LPN BOCE 


LPP 


BOBD LP0 


BOC? 


LPR BOAE 


LPS BOM 


PST BE13 


OST 


BE15 TST 


BE39 


YST BE27 




MEHDDSfflfl.ffl 






^.SAICUES contributed by 



Truman Krumholz! 

1 , To eliminate the double line feed when in the DOS READY 
model Zero byte FOH in sector O of SYS1/SYS. It is normally a 
ODH. 

2. To allow where you can either enter the date and time on 
power up or just press <ENTER> to bypass! Zero bytes 67H, 68H, 
7AH and 7BH in sector 12 of SYSO/SYS. These bytes are normally 
20H, EDH, 20H, and EDH. 

Optima,. . yfCMnnc^a^nciMaoM-a A,..7.Anc! are reprinted 
from the CINTUG (Cincinnati TRS-80 User Group) newsletter! 

These ZAPs to NEWDOS/80 Version 2.0, Models I and III 
allow the changing of the PDRIVE parameter without writing to 
disk. The syntax for use is the same as before except "B" is used 
instead of "A" in the PDRIVE command. The lap allows the 
PDRIVE table in memory to be changed without changing the disk 
record. 

******* ZAP 091 **«»»*» 03/02/84 #♦*♦##♦ V2M1 ♦#*♦*♦* 
SYS16/SYS,02,FB change FE 41 21 20 06 to C3 CO 51 OO OO 
SYS16/SYS,04,D4 change all zeroes to! 

FE 41 12 20 03 C3 Fl 4F FE 42 C2 F7 4F 3E 41 12 77 C5 E5 01 00 
07 21 E2 4D 71 23 10 FC El CI C3 Fl 4F 

»••*•*« ZAP 086 »##•»♦* 03/02/84 ***#*#« V2M3 «»***#* 
SYS16/SYS,02,EB change 7E FE 41 12 20 to 7E C3 CB 51 20 
SYS16/SYS,04,DF change all zeroes to! 

FE 41 12 20 03 C3 EO 4F 3D FE 41 20 F8 C5 E5 01 00 07 21 D3 4D 
71 23 10 FC El CI 18E3 02 

The following ZAP allows you to use the Series I Editor 
Assembler under NEWDOS/80 Version 2.0 on the Model III, It 
may also work on the Model I, but it has not been tried out. 
Remember that you must have applied ZAP 025 in order to transfer 
files from TRSDOS 2.3b over to NEWDOS/80 Version 2.0. The 
function of this zap is to reload the BREAK enable function of 
NEWDOS/80. If you are interested in patching other TRSDOS 
programs, the bytes to look for are 3A C9 32 78 44. 

EDTASM/CMD,02,00 change 2A OD 40 to C3 EA 5B 
EDTASM/CMD,05,8D change 4C 69 63 65 6E 73 65 64 20 74 6E 20 
to AE 3E C9 32 78 44 2A OD 40 C3 6B 58 

The next patches are for the FORTRAN package and also 
enable the BREAK key function. They are also for the Model III, 
and have not been checked out for the Model I. Note that 
FORTRAN/CMD is also called EDIT/CMD on some versions. 



FORTRAN/CMD,02,DA change AF 32 IE 53 to C3 A8 7C OO 

FORTRAN/CMD.43,54 change 00 OO 00 00 00 00 00 00 00 OO 00 00 

to AF 32 IE 53 3E C9 32 78 44 C3 D2 54 

F8O/CMD,OO,04 change C3 Al 57 00 00 00 00 OO to 3E C9 32 78 

44 C3 Al 57 

L80/CMD,00,07 change AF 32 15 43 to C3 E6 74 OO 

L80/CMD,35,72 change 30 00 00 00 00 00 OO 00 OO 00 00 OO to 3E 

C9 32 78 44 AF 32 15 43 C3 07 52 



BACKING UP A COLOR COMPUTER DISK USING SUPER 
UTILITY PLUS - This one's short and sweet - use drive 
configuration settings T3D,35,17 and Super Utility will be able to 
backup your Color Computer disks on your Model I/III/4, Thanks 
to Bill Peek of the Indiana Software Group for this information. 



TASMON UPGRADE AVAILABLE - By the time you receive 
this newsletter, the Model 4 version of TASMON (that runs in the 
native Model 4 mode) should be ready to ship. But don't go away 
just because you own a Model I or Model III - a TASMON upgrade 
is available for you as well. Not everyone will need the upgrade, 
but if you do you should contact The Alternate Source for pricing 
and availability. 

The Model I version is upgraded to decode and display all of 
the known useful "undocumented" Z-80 opcodes. Now, if you use 
undocumented opcodes, TASMON won't choke on them. In addition, 
when tracing or single-stepping code, the last seven instructions 
executed are shown (in disassembled form) in the lower right 
portion of the display. This makes it a lot easier to figure out 
how you got to where you are now, in case a program takes a jump 
to someplace you didn't expect. Finally, a new command has been 
added - the "Q" command is now used to compare two blocks of 
memory. For example, a user might type (user input is 
underlined): 

G AOOOBOOO A154B154 
In the above example, the user told TASMON to compare two 
blocks of memory starting at A000H and B000H respectively. 
TASMON reported that all bytes were the same until it reached 
A154H and B154H, where the bytes stored at those locations were 
different. At this point the user could restart the compare by 
simply typing! 

Q<ENTER> 
and TASMON would begin comparing at A155H and B155H (in this 
example). This function could be useful in determining the 
differences (or patched instructions) in two similar code 
segments. 

The Model III version has all the above enhancements, plus 
the keyboard scan routine has been revised so as to NOT use the 
Model III lookup tables (which seem to move around in the various 
versions of the Model 4 ROM!). 

There is a cost to be paid for these enhancements, in terms 
of memory - the new versions occupy a little bit more than the 8K 
of memory used by the original version. But, if you have a need of 
the ability to disassemble undocumented opcodes, to see in 
disassembled form what you've just executed, to compare blocks 
of memory, or to run TASMON on a Model 4 in the Model III mode, 
you should contact The Alternate Source for price and availability 
of these upgrades. 

[NOTICE - The above should not be taken as an unbiased 
review, but rather should be considered more of a news release. 
Your editor was responsible for much of the added code for the 
enhancements (but NOT for the native Model 4 version).] 
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CHRISTIAN COMPUTING MAGAZINE is a bimonthly 
publication for, you guessed it, Christian computer users. One 
benefit of this magazine is that they review and cross-reference 
software that might appeal to churches, church leadership, or 
Christians in general (but possibly not to the average computer 
user). Another feature is "Telecommunications Cross-Talk", 
which provides news of Christian-oriented Bulletin Board 
Systems (the issue I received mentioned two, at (817) 483-1264 
and (713) 721-0888) and other telecommunications interests. This 
magazine is not a TRS-80 specific publication, but it does include 
coverage of TRS-80 software. The September-October 1984 
issues had 28 pages in full size, glossy format (and this is 
apparently their third issue). Subscription rates at present are 
S13 U.S., *18 Foreign, or S3.00 per single issue. Address 
inquiries to Christian Computing Magazine, 72 Valley Hill Road, 
Stockbridge, Georgia 30281 or telephone (404) 474-0007. 



A MODULE BASED ON NEWDOS80/V2 [ MODEL I VERSION ] TO 

INTERRUPT A RUNNING PROGRAM AND SAVE A COMPLETE 

CORE-IMAGE TO DISK. 

THE INTERRUPTED PROGRAM MAY BE RESTARTED SOME 

LATER TIME 

by Joachim Kelterbaum 
(Frankenstr. 305, 4300 Essen 1, West Germany) 

If you are the type of user who has programs that take hours 
to run, read on. Probably you have experienced a sudden reboot 
after 2 hours or so of running your favorite application. The 
whole time spent was just wasted, because you have to start over 
again - hoping not to get another one of those nasty reboots. 
Well, how does the following sound? 

Start your application and save the actual contents of RAM 
including registers, stack etc. to disk (about every hour). Then 
just resume execution, If you have an unwanted reboot or silent 
death or whatever, start from where you last saved RAM to disk. 
This can save some time and aggravation in the long run. 

To activate the module just enter INTERRPT. If your 
application polls the keyboard from time to time via the device 
control block (BASIC does this all the time to detect SHIFT-Q) you 
may just press SHIFT-CLEAR. From this very moment the whole 
machine status is saved to disk onto a file called MEMORY/CIMI0 
(it has to be created before the first application and must allow 
for 3? granules of space). After the status has been saved, a 
reboot is done. Now you can either resume execution by entering 
INTERRPT,* or run anything else before you do so. That's all 
there is to it. 

You will find a commented source listing of the module 
below. As it is (at least I hope so) well commented, I'll only deal 
with the major aspects of operation here! 

If you enter the program via INTERRPT (not followed by 
"*"), first the original keyboard driver address is plugged into the 
instruction SCALL (line 1750). Then the module SCALL...END is 
relocated directly below HIMEM and its new entry address is 
stored to RELAD and to the DCB address. HIMEM is updated 
accordingly. Then the first sector of the file INTERRPT/CMD is 
written back to disk. This permanently updates RELAD for a 
future restart. 

The instructions RLCT (line 830) to DONE (line 1090) update 
a few absolute addresses in the relocated module using RELTBL 
as a relocation table. This has to be done because not all of the 
180 code is 'truly relocatable'. 

After this a sign on message is displayed ((FLAG) = 0) and c 
jump to DOS is done. Now the new keyboard intercept routine is 
active (lines 1750 to 1620). If and only if SHIFT-CLEAR is 
pressed, a jump to SHFCLR is done. Then all registers are saved 
to stack and the stackpointer is stored to STACK = 4023H (2 
unused bytes in the video DCB). After this RAM from 3C00H to 
FFFFH except for 4D00H-51FFH (DOS overlay-area) is saved to 
the file MEMORY/CIMI0. 

Note that there is no explicit file buffer specified in the 
open file command. Instead, IX is loaded with the FCB address, 
and IX+3, IX+4 (that is the address of the associated file buffer) 
is changed. By this means you save additional 256 bytes for a 
buffer. The buffer itself sort of 'floats' through RAM. When all 
RAM has been saved (ENDIT, line 2220) the file is closed, a 
message (MS) is displayed, a wait for a few seconds is done and • 
reboot is forced by the HALT instruction. 

If you enter the routine by INTERRPT,* a jump to STAR dine 
1250) is done. First the stackpointer is moved into 3FF0H (video 
RAM) so it won't be in the way while reloading the original RAM 
contents. This trick only works if you have all bits available in 
the video RAM (i.e. lowercase must be installed) -as far as I have 
been told, it does not work with the PMC80 for other hardware 
reasons-, 

After this, the module (SCALL-END) is relocated to the 
address (RELAD) which has been written to disk before. The 
keyboard driver address is plugged again and a jump to RLCT is 
done, where some addresses in the relocated module are fixed up 
again. As (FLAG) = 1 now, the program continues at STARNT (line 
1520). Then the entry address of RESTOR (line 2400) in the 
relocated module is calculated and a jump to that address is done. 
Now the RAM is read back from the file MEMORY/CIM again. It 
is stored beginning at 4000H (rel. record # 4 ff.), because the 
video RAM still acts as temporary stack. The DOS overlay-area 



15 skipped again. When FFFFH is reached, the FC^ is 
repositioned to record # 0, the old stack is restored, and the 
original screen contents are read back (4 records = 1024 bytes). 

Then the FCB is positioned to EOF and the file is closed 
(this is necessary because the original contents of the FCB (line 
3120) are needed for subsequent "shift-dear's". 
Finally, all registers are restored. Now, everything is fixed up_^ 
except for the overlay-area. We now simply plug into addre 
4317H to make DOS believe, it had loaded overlay # (whu 
would be BOOT/SYS). When the next overlay request will follow 
DOS will take care of that by itself, so we won't have to bother 
with it. 

Finally, we jump to SCALL which was the address where we 
interrupted our running program (this fixes the program counter), 

Please, do read the comments at the beginning of the listing 
before using this program! 



5200 



ORG 



S200H 



10210 
10220 



00100 

oono ; 

00120 [DiTERRPT/DO 

00130 ; 

00110 ;<C) JOACHIM KELTERBAUM 

ooiso ; 
•olio ; 

00170 {This nodule intercepts the keyboard driver if activated. 
00180 [By pressing shift-clear any running program car, be 
00190 Interrupted as long as it polls the Keyboard via DCB. 
00200 Jlften shift-clear is recognized, the whole RAH X00H - 

[FFFFH except DOS overlay area including all registers 

[and PC is saved to disk. 
00230 [Then a reboot is executed. 

00210 [then needed -sone later tine- enter INTERRPT, » fron 
10250 [DOS. Your interrupted progran will be reloaded fron 
00260 [disk and will continue execution where it left off. 
00270 [The following conditions nust be net !!! 
00280 [The progran to be interrupted nust poll the keyboard 
00290 [via DCB fron tine to tine (BASIC does this anyway). 
00300 [The progran nust honour HIMEM. 
00310 [This nodule relocates itself below HDCH. 
00320 [ 

00330 [It is primarily intended to be used when a progran 
00310 [runs over a long period of tine. 
00350 [Be careful, if your progran uses disk-files, because 
00360 [those files nust stay in the sane locations before 
00370 [and after interruption unless they have been closed 
00380 [before interruption. 

00390 [This is due to the fact that the infornation of an 
10400 [(eventually) open FCB is saved in the Wre-inage and 
00110 [will be reused after restart of the interrupted 
00420 [progran. 
00130 [If you do not take this precaution, you night destroy 





oono 

00150 


[your 
[ATTB 


disk !!! 


ii ii 1 1 1 1 1 1 1 1 1 1 1 






fflON !!!! 






00160 


* 
t 










10170 


[This 


progran assumes an existing file MEMORY/CDC 




00180 


[Create it, if 


1 necessary, It will need 39 CRN's of 




00190 


[diskette space. 






00500 


[ 










(0510 


, 










00520 


t 








5200 0000 


00530 RELAD 


DEFM 


t-i [put addr. of relocated routine 




00510 






[here 




5202 7E 


00550 START 


LD 


A,(HL) [get first parameter (i) 


5203 FE2A 


00560 




Cr- 


'»' [is it 


i ? 


5205 CAEE52 


00570 




OP 


Z,STAR [yes = 


=> STAR 


5208 2A1610 


10580 




LD 


H_,(1016H> 


[get KBO driver address 


520B 225151 


00590 




LD 


<SCALL+1),HL 


[plug into SCALL+1 


520E 219155 


00600 
00610 




LD 


HUFJO 


[last byte of nod. to be 
[relocated 


5211 ED5B1940 00620 




LD 


DE,(1019H) 


[get HDCW value 


5215 011201 


00630 




LD 


BCEND-SCALL+1 


! bytes to nove 


5218 EDBB 


00610 




LDOR 




[ nove nodule 


521A ED531910 00650 




LD 


(1019H),DE 


[update KDCn 


521E 13 


00660 
00670 




INC 


DE 


[first addr. of relocated 

[nodule 


521F ED530052 


00680 




LD 


( RELAD), Dt 


[plug into RELAD 


5223 ED531610 00690 




LD 


(1016H),DE 


[and KBO driver addr. 


5227 0600 


00700 




LD 


B,0 [record length = 265 


5229 113353 


00710 




LD 


DE.FCB1 [point to FCB of INTERRPT/CHD 
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522C 215353 
522F CD21H 
5232 CD36H 
5235 210052 

5238 7E 

5239 325753 
52X 23 
523D 7E 
5Z3E 325853 
5211 CD3FU 
5211 CDXU 



00720 
00730 
00710 
00750 
00740 
00770 
00780 
O0790 
00800 
00810 
10820 



5217 ED5B0052 00830 RLCT 
5216 212153 00810 



521E 7E 
521F 17 

5250 23 

5251 B6 

5252 2811 
5251 E5 

5255 66 

5256 68 

5257 19 

5258 « 

5259 23 
525A 16 
5258 28 
525C D5 
5250 EE 
525E 09 
525F EE 

5260 73 

5261 23 

5262 72 

5263 Dl 
5261 El 

5265 23 

5266 18E6 
5268 3A3253 
5268 FE00 
526D C21753 
5270 217952 
5273 C067H 
5276 C32D10 



00850 NXTLX 
00860 



•0870 

00880 

(0890 

00900 

00910 

00920 

00930 

00910 

00950 

00960 

00970 

00980 

00990 

01000 

01010 

01020 

01030 

01010 

01050 

01060 

01070 

01080 

01090 DONE 

01100 

onto 

01120 
01130 
01110 

01150 ; 

01160 SGNMS 
75 6E 2D 71 69 60 65 20 69 6E 
71 20 72 6F 75 71 69 4E 65 20 
71 65 61 
529D OA 01170 DEFB 
529E 73 01180 DEFH 
71 61 72 71 20 62 79 20 70 72 
20 73 68 69 66 71 20 63 6C 65 
52ES OA 01190 DEFB 
52BC 72 01200 DEFH 
65 63 61 6C 6C 20 69 6E 71 65 
61 20 70 72 6F 67 72 61 60 20 
65 72 69 6E 67 



LD 

CALL 

CALL 

LD 

LD 

LD 

DC 

LD 

LD 

CALL 

CALL 

LD 

LD 

LD 

LD 

INC 

OR 

JR 

PUSH 

LD 

LD 

ADO 

LD 

DC 

LD 

DEC 

PUSH 

EX 

ADD 

EX 

LD 

DC 

LD 

POP 

POP 

DC 

JR 

LD 

CP 

JP 

LD 

CALL 

JP 



H,BUFF2; buffer for that file 

H21H {open file 

H36H (read first sector 



{plug (RELAD) 

{into rel. words 

[1 and 5 of 

[buffer 

{and 

* 

, 

(Position to start of file 

{write back first sector 

{relocate code fron 

{SCALL to END using 

JRELTBL as relocation 

! table 

.this nethod of relocation 

!is described in 

JTRS-80 ROM ROUTDCS DOCUHENTH 

{by Jack Decker 



5279 52 



DEFM 



52E2 0A 
52E3 19 



01210 
01220 



DEFB 
DEFH 



HL.RELAD 

A,<HL) 

(BUFF2+D,A 

HL 

A,<HL) 

(BJT2+5),A 

M3FH 

HXH 

DE, (RELAD) 

HL,RELTBL 

A,(HL) 

B,A 

HL 

(H.) 

2, DO* 

HL 

H,(HL) 

L,B 

FL.DE 

C,(HL) 

HL 

B,(HL) 

HL 

DE 

DE.HL 

HL,BC 

DE.HL 

<HJ,E 

H 

(HL),D 

DE 

HL 

HL 

HXTLX 

A, (FLAG) {test if FLAG = 

{(neans no i-option chosen) 

NZ.STARNT! if i-option was chosen 

HL,SGNHS (display sign-up 

H67H {nessage on screen 

102DH !=> DOS 

'Run-tine interrupt routine activated' 

71 65 72 72 75 70 
61 63 71 69 76 61 

•AH 

'Start by pressing shift-clear' 
65 73 73 69 6E 67 

61 72 
•AH 

'recall interrupted progran by entering' 

72 72 75 70 71 65 

62 79 20 65 6E 71 

•AH 
'DfTERRPT.i' 



1E5115 52 525051ZC2A 



52ED 0D 



52EE 21F03F 



01230 
01210 ; 
01250 STAR 
11260 
01270 
01280 
01290 
•1300 



01310 

01320 

•1330 

•1310 

52F1 F9 01350 

52F2 215351 01360 

5ZF5 ED5B0052 01370 

52F9 011201 11380 

52FC EDfc'O 01390 

52FE 3E01 01100 

5300 323253 OHIO 



DEFB ton 

LD rL,3FF0H Ji-option ... 

tflove Stack out of the way 
{so it won't be bonbed by being 
(Overwritten while restoring 
{the original core-ittage 
(Stack temporarily resides 
{within Video-RAM 
.This can only work( if lower- 
icase is installed, so Video-RAM 
{has all 8 bits acccssable 

LD Sf.HL 

LD HL.StALL {nove nodule SCALL-END 

LD DE,(RELAO) jto (RELAD) 

LD 6C,END-SCALL+1 {♦ bates to be iwved 

LDJJ) ; do it 

LD A,l {set FLAG to 1 

LD (FLAG).A 
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5303 2A1610 01120 


LD 


HL,(1016H) {get KBD driver addr. 


5304 EE 


01130 


EX 


DE,H_ J -> DE 


5307 2A0052 (W0 


LD 


H-, (RELAD) {get start of new driver 


530fl 23 


01150 


DC 


HL [plug old driver address 


5308 73 


01160 


LD 


(H-),E !into (RELAO+1) 


530C 23 


01170 


DC 


HL 


5300 72 


01180 


LD 


<HJ,D 


530E 2A0052 01190 


LD 


H., (RELAD) [get new driver addr. 


5311 221610 01500 


LD 


(1016H),HL {plug into OCB 


5311 C31752 01510 


JP 


RLCT ;=> RLCT 


5317 2A0052 (1520 STARNT LD 


HL,(RELAO) {continue after noving 




•1530 




{routine SCALL-EH) 




•1510 




{while *-option is selected 


531A 019F00 (1550 


LD 


BC,RESTOR-SCALL {calculate addr. of RESTOR 


5310 09 


•1560 


ADO 


HL,BC {in relocated nodule 


531E 222253 01570 


LD 


(JHM).HL {and 


5321 C30000 11580 JHP 


JP 


*-* {jump to it 




01590 ; 






5321 2B00 


11600 RELTBL DEFH 


FCBA+l-SCALL {relocation table 


5326 6000 


01610 


DEFH 


HSA+1-SCALL 


5328 A600 


•1620 


DEFV 


FCBE+1-SCALL 


532A 1F01 


01630 


DEFH 


SCA+1-SCALL 


532C 2800 


01610 


DEFH 


FC8X+2-SCALL 


532E A300 


01650 


DEFH 


FCBY+2-SCALL 


5330 0000 


01660 


DEFH 


{end of table 


5332 00 


11670 FLAG 


DEFB 





5333 19 


01680 FCB1 


DEFH 


'DfTERRPT/CMD' 


* 51 15 52 52 50 51 ZF 13 10 H 


533F OD 


•1690 


DEFB 


(OH 


0013 


11700 


DEFS 


19 {fill up to 32 bytes 


0100 


•17U HJFF2 
•1720 ; 


DEFS 


100H {buffer 


1023 


•1730 STACK 


EQU 


1023H {unused 2 bytes in RAM used as 




•1716 J 




stack-pointer pointer 


5153 CD0000 


•1750 SCALL 


CALL 


*-♦ {call original driver 


5154 FE1F 


•1760 


CP 


31 {was clear pressed ? 


5158 CO 


•1778 


RET 


NZ {ret if not 


5159 3A8038 


11780 


LD 


A,(3880H> {is it shift-clear 


515C CB17 


11790 


BIT 


l,A 


515E 2003 


11800 


JR 


KZ.SHFOR {yes ->SHFCLR 


5160 3E1F 


01810 


LD 


A(31 inO( so 


5162 C9 


•1820 
01830 ; 


RET 


{return 


5163 F5 


•1810 SHFCLR PUSH 


Af {save all registers onto stack 


5161 C5 


•1850 


PUSH 


BC 


5165 D5 


01860 


PUSH 


DE 


5166 E5 


01870 


PUSH 


HL 


5167 D0E5 


•1880 


PUSH 


» 


5169 FDE5 


•1890 


PUSH 


n 


5168 08 


•1900 


EX 


AF,AF' {switch register sets 


516C D9 


01910 


EXX 




5160 F5 


01920 


PUSH 


AF {and save those, too 


514E C5 


11930 


PUSH 


BC 


516F 05 


•1910 


PUSH 


DE 


5170 E5 


11950 


PUSH 


HL 


5171 ED732310 01960 


LD 


(STACK), SP {store actual stack ptr. 


5175 D9 


•1970 


EXX 


{back to old register set 


5176 08 


01980 


EX 


AF,AF' 


5177 0600 


01990 


LD 


B,0 J256-byte records 


5179 DD212101 (2(10 FCBX 


LD 


IX.FTO-SCALL {points to fCB 


517D 112101 


02010 FCBA 


LD 


DE.FCB-SCALL { sane 


5180 2100X 


•2020 


LD 


H,X0»H {first buffer = X00 


5183 CD2011 


•2030 


CALL 


H20H {open file MEMORY/OHIO 


5186 CDXU 


12010 com 


CALL 


H3CH {write sector 


5189 010001 


•2050 


LD 


BC,100H {update pointer 


518C 09 


•2060 


ADD 


HL,K {to next buffer 


5180 E5 


•2070 


PUSH 


HL {save HL 


518E tll(10 


•2180 


LD 


BCdOOIH Jis buffer at overlay-area 


5191 B7 


I2«9I 


OR 


A 


5192 EM2 


•21 00 


SBC 


HL.BC 


5191 El 


•2111 


POP 


H. 


5195 20OB 


12120 


JR 


NZ.OK {no -> OK 


5197 210052 


02130 


LD 


HL,52I0H )yeS( skip overlay-area 


519A D07503 


(2110 


LD 


(K+3),L {update buffer adress 


5190 DO7101 


•2150 


LD 


(K+1),H Jin FCB 


51A0 18E1 


•2160 


JR 


COHT 


51A2 70 


02170 OK 


LD 


A,L {is end of RAM reached ? 


51A3 B1 


02180 


OR 


H 


51A1 D07503 


02190 


LD 


(IX+3),L {update buffer addr. 



5W DO7101 
5*M 20OA 
51AC CD28H 
5W CDC901 
51B2 217200 
51B5CD67U 
5168 0405 
51BA C5 
ym 01FFFF 
51BECD4000 
51C1 CI 
WC2 10F6 
51C1 74 



82200 
•2210 

12220 QOn 
•2230 
•2210 HSA 
•2250 
82260 
•2270 LPP 
12280 
02290 
•2300 
12310 
12320 
•2330 ; 
51C5 13 I231« MS 

4F 72 45 20 19 40 41 
45 4E 20 73 41 74 45 
510EOA 02350 

510F52 02340 

45 42 4F 4F 71 20 44 
21 
51fl ID 12370 

•2380 ; 
02390 ; 
51F2 0400 12110 RESTOR 
51F1 DO212101 K110 FCBY 
51F8 112111 K12) FCBB 



U> 

JR 

call 

CALL 

LD 

CALL 

LO 

PUSH 

LD 

CALL 

POP 

DJNZ 

HALT 

DEFH 
47 45 20 
41 

DEFB 

DEFH 
4F4C4C 



UX+U,H 

NZ.CONT 

H28H 

•1C9H 

HL.HS-SCALL 

H47H 

B,5 [hold it fo a while 

BC 

BC.WTFFH 

4IH 

BC 

LPP 

{force REBOOT 

'Core-Luge has been saved' 
48 41 73 21 42 45 



iin FC8 

! if not end of RAH go on 

tclose file 

(clear screen 

(display message US 



'Reboot follow !!!' 
4F 77 73 21 21 21 



DEFB (OH 



54FB 2HM0 



51FECD20U 
5501 I1M00 
5501 CM2H 
5507 CD34H 
550A 111001 
550D 09 
550EE5 
550F 010040 

5512 87 

5513 EM2 
5515 El 

5514 2008 
5518 210052 
551B DD7503 
551E DO7101 
5521 18E1 
5523 7D 
5521 B1 
5525D07503 
5528 D071M 
552B2IDA 
552D 011100 
5530 21I0X 
5533DD7503 
5534 DO7101 
5539CD1211 
55XZA2310 
553FF9 
5510 2100X 
5513 J401 

5515 C5 

5516 CD34H 
5519 010001 
551C 09 
551DC1 
551E DD7503 
5551 DO7101 
5551 10EF 
5554 CD48H 
5559 CD28H 
555C (8 
5550 D9 
555E El 
555FD1 

5540 CI 

5541 Fl 



12130 

•2H« 
•2150 
I214( 

02171 
12180 
12190 
•2500 

•2511 

•2520CQOT2 

I2S30 

12510 

12550 

•2540 

•2570 

•2580 

•2590 

02400 

02410 

•2420 

12430 

02410 

•2450 DX2 

02440 

•2470 

12480 

•249J 

•2700 END2 

•2711 

12720 

•2730 

•2710 

12750 

02760 

02770 

02780 

•279» SCRIP 

02800 

•2810 

•2820 

•2830 

02810 

12850 

•2841 

12870 

12880 

12890 

12901 

12910 

12920 

12931 

•2910 



LD 
LD 
LD 
LD 



CALL 

LD 

CALL 

CALL 

LD 

ADO 

PUSH 

LD 

OR 

SBC 

POP 

JR 

LD 

LD 

LD 

JR 

LD 

OR 

LD 

LD 

JR 

LD 

LD 

ID 

LD 

CALL 

LD 

LD 

LD 

LD 

PUSH 

CALL 

LD 

ADO 

POP 

LD 

LD 

DJNZ 

CALL 

CALL 

EX 

EXX 

POP 

POP 

POP 

POP 



H20H 
BC,1 
W2H 
H36H 



!is it overlap-area 



->OK2 

{skip overlay-area 
[update buffer address 
[in FCB 



B,0 [254-byte records 
K.FCB-SCALL [points to FCB 
DE.FCB-SCALL [sane 
H_,UMH [first buffer address 
[you have to start reloading 
[the old core Mage at DOtti 
[because the screen is used 
[as a temporary stack, 
[it is updated last !! 
[open file 

[record *4 (first after screen) 
[position FCB there 
[read sector 
.BC,1IIH [update buffer adress 
HL.BC 
HL 

BC,«00H 
A 

HL.BC 
HL 

NZ,0K2 [if not 
HL,5200H 
(IX+3),L 
<IX+1),H 
C0NT2 

A,L [is end of RAN reached ? 
H 

<TX»3),L [update buffer address 

(E(+1),H [in FCB 

NZ,C0NT2 [if not, continue reading 

BC,« [record 10 (first screen sector) 
HU3C0M; buffer ad*. 
(1X43) ,L [update in FCB 

(K+1>,H 

W2H [position file there 
HL, (STACK) [get stack-pointer of 

SP,HL [previously saved core inage 
HL.X00H 

6,1 [restore 1 sectors of old screen 
BC 

H36H 
BC,100H 
KL.BC 
BC 

<IX-t3),L 
(IX+1),H 
SCRLP 

W8H [position to EOF 
H28H [close file 
AF.AF' [restore all registers 



5562 D9 

5563 08 
5541 FDE1 
5544 DOE1 

5568 El 

5569 01 
554A CI 
556E Fl 
556C 3E00 
554E 321713 



5571 C30000 
5571 ID 



02950 
•2960 
•2970 
•2980 
•2990 
03000 
•3010 
03020 
03030 

03010 

03050 
•304« 
•3170 
•3980 
13090 
13100 
13110 SCA 
(3120 FCB 



15 10 1F 52 59 2F 13 
5580 0D (3130 
0013 03110 
5591 03150 EM) 
5202 03140 
00000 TOTAL ERRORS 



EXX 

EX AF.AF' 

POP IT 

POP IX 

POP HL 

POP DE 

POP BC ^ 

POP AF 

LD A,0 [plug into ♦ of currently loaded 

LD (1317H),A [DOS overlay 

[to force DOS to reload the needed 
[overlay at the next RST 28H 
[This is neccesscary, because the overlay- 
[area is used during disk I/O by a 
[different nodule than was resident before 
[saving core-inage 
JP SCALL-SCALL [back to KBD driver 
DEFH 'HEHORY/CDCO' 
19 10 3A 30 
DEFB IDH 
DEFS 19 
EOU t 
EMD START 



COOT 

EMMT 

FC8X 

rS 

RELAO 

SCALL 

STAR 



5184 
MAC 
5179 
51C5 
5200 
5153 
52EE 



C0NT2 
FCB 
FCBY 
HSA 



5507 
5571 
51F1 
5«2 



RELTBL 5321 
SCRLP 5515 
STAROT 5317 



DONE 5248 

FCB1 5333 

FLAG 5332 

NXTLOC 521E 

RESTOR 51F2 

SGNHS 5279 

START 5202 



END 5591 

FCBA 5170 

JW 5321 

OK 51A2 

RLCT 5217 

SHFCLR 5143 



BUFF2 5353 

END2 552D 

FCBB 51F8 

LPP 5«A 

OK2 5523 

SCA 5571 

^SLSS^ssk. 9 ss^JSRJSUJIS^& 

Th M ° DEM ?° ^ ATCH " Modem80 is a terminal program sold by 

The Alternate Source, that has one big advantage over the 

freebie programs you might find on your local Bulletin Board 

!wv e > m ' *^ , l% . *■!** " is CapaWe of flouting or downloading 
ANY length file (when downloading the only limit is the amount of 
free space on your diskette). Most other terminal programs use a 
out ofludf. rKeiVed dat *' * nd when that buffe,r " fM> you're 

However, I have had one problem when using Modemf 
have a Novation Auto-Cat modem, which thinks that it s*. d 
answer any incoming phone calls if the DTR (Data Terminal Ready) 
iL ne h , .1J^;| 32 interface » •*• Modem80 sets the DTR and 
™ /J* ^,° D i M dUrinS initiil "*tion, but doesn't reset the 
DTR and disable the MODEM when you use the X option to exit to 
DOS. Suppose, as in my case, you don't really want the MODEM to 
answer the phone. Well, if ModemSO has been run at least once 
since power-up, the DTR line will be set and the MODEM will 
greet callers with a loud squeal after the first ring, whereupon 
the caller will generally hang up very quickly! This happened to 
me once too often so I contacted Leslie Mikesell, the author of 
Modem80, for a patch to make Modem-80 disable the MODEM at 
exit. 

Here is the patch to make Modem80 release an auto-answer 
MODEM by dropping DTR and RTS before exit to DOS, as provided 

\ V il 1 /, 1 " "^ PATCH formAi ' *" d tbe D""'™ n^rs 
refer to the file sector and byte offset within the file sector (in 

hexadecimal), if you prefer to use a file zapper program to install. 
•Patch to Modem80 to turn off DTR & RTS at exit 



D05,O9=CD 31 91 
D04,4D=CD El 95 21 21 

.End of patch 



91 CB C6 CB CE 16 E5 



oitrJ^ ^T^f£° ndin9 l0 * d address es for the patch would be at 
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ARE ALL HARD DISK CONTROLLERS EQUAL? Apparently 
not. In a recent phone conversation with Jimmy Nord of 
Sacremento, California, he explained that the OMTI controller 
that he uses gives 20\ more storage per drive than the normal 
controller. It has onboard memory and reads and writes full 
tracks rather than individual sectors. The drawback is that it ; 
bit slower than the normal controller (but at hard disk aco. 
speeds, who's going to notice anyway?). I have never heard of the 
OMTI controller before or since, so if anyone has any further 
information about it why not pass it along to us? 



W"*feMW- This program was sent 

to us by Paul Fransen, secretary of a TRS-80 users group in 
Holland (the country, not Holland, Michigan). It was written by 
one of the members of his group. What it does is that it patches 
your Model I NEWDOS/80 system disk so that when some 
unsuspecting person comes along and tries to boot your disk, they 
will be greeted by the sound of an alarm 1 Of course, you have to 
have an amplifier hooked up to the cassette port for this to work. 

When YOU boot up your disk, you'll be rewarded with silence 
because you'll know which key to hold down during the boot 
process to disable the alarm. The default is the <SHIFT> key, but 
you can change that to any key you like. 

Now you can trap that sneaky roommate, co-worker or 
employee that tries to use your system disk without your 
knowledge. You might be surprised to find out who you catch 
red-handed (and red-faced) with this program' 

10 CLEAR1000JCLS 

20 PRINTTAB<23)"-=: ALARM-DISK :=- 

"STRING*(63,140):FRINT(?832 f STRING$<63,140) 

30 PRINT@256,"This program let you make an alarm-disk!! 

This is done by zapping SYSO/SYS of KEWDOS 2.0. 

Except for the alarm, the DOS will work normally. 

When you boot up an alarm will go off. To prevent this you have 

to push down a "', 

40 FRINT'certain key. 

So, if an unqualified person tries to start up your computer 

you will be alarmed by an awful sound." 

50 PRINT0896,"One moment, please "j 

60 CMD"BREAK,N" 
70 M=-32768 

80FORX=0TO274:READY:POKEM+X,Y:NEXT 

90 OPEN"D",l, "SYSO/SYS" 

100 FIELD1,196ASA*,59ASB*,1AS C* 

110GET1,13 

120 NW*(0)=B*+STRING*<5,32) 

130 FIELD 1,1ASA*,4ASB*,57AS C*,1ASD«,55ASE*,138ASF$ 

140GET1,14:CLOSE 

150 NW$(1)=A*+C*+STRING*<6,32) 

160 NW*(2)=E*+STRING*(9,32) 

170 FIELD1,165ASA*,1ASQ*,90ASBS 

180 OPEN"D\l, "BOOT/SYS" 

190GET1,3:CLOSE 

200 GOSUB56O:GOSUB59O:PRINT0384,"Connect an amplifier to yo 
ur system. 

This is a demonstration. 

Don't worry, your disk will not be zapped! 

When you have seen and heard enough, push the <SHIFT>-kev. 

210 GOSUB560tCLS 

220 DEFUSR=MiPRINT@576,CHR»(31)"Push the <SHIFT>-key, when 
you have seen enough...." 

230 pokei 4305,1 :fort=oto2oo:next:print@o,;:fork=oto2:pr 
intnw«(nj;:next 

240 Z=USR(0>!IFPEEK<14464)=0THEN240 

250 PRINTe576,CHR*(31)"If you like this alarm-zap push <ENTER 

y* 

If you don't, push <BREAK>," 

260 IFPEEK(144OO)=4THENPRINT0576,CHR«(31)"Thanks for your i 

nterest ! " :CMD"BREAK" IPRINTIPRINTiEND 

270 IFPEEK(14400)=1THEN290 

280 GOTO260 

290 PRINTe576,CHR*(31)»You're sure you want to zap SYSO/SYS ? 

<ENTER> « yes 

<BREAK> = no" 

300 IFPEEK<14591)O0THEN300 

310 IFPEEK(14400)=4THEN260 

s 3 e!.!."G E OTO3r0 W,=1THEN ^ NTe576,CHR * <31> "° ne ^"^^ pl " 

330 GOTO310 

340 OPEN"R",l, "SYSO/SYS" 

350 FIELD1,249ASA»,3ASB*,4AS C« 

360GET1.12 

370 READA,B,C!Zt=CHR*(A)+CHR*(B)+CHR«(C):LSETB$=Zt:PUTl ,1 

380 FIELD 1,33ASA*,1 09 ASB*,1 MAS C* 
390GET1.15 

4ooz*=»":forx=itoio9:reada:z$=z* + chr*(a):next:lsetb*=z* 
410 putm5!close 



420 PRINTG320,"That's that. Your SYSO/SYS has been zapped. 
When you boot up, your banner will flash and the alarm signal 
will sound. Use <SHIFT> to stop this. 
Everyone who sees this program now knows it is the <SHIFT>-key 

430 PRINT"So maybe you would like to use another key (only one'). 
Hold down the key you prefer until I have found it and.... 

REMEMBER THIS KEY 

440FORX=0TO7:M=14336+2CX:iFPEEK(M)=0THENNEXT:GOTO44O 

450 Rt=INKEY$:P=PEEK(M>:iFMOl4400THEN470 

460IFP=1THENR$="ENTER"ELSEIFF=2THENR*="CLEAR"ELSEIFP 

=4THENR*="BREAK"ELSEIFP=16THENR*=CHR«<92)ELSEIFP='-:'/TH 

£NR*="BACKS"ELSEIFP=64THENRt="TAB"ELSEIFP=128THENR*= 
-SPACE" 

470 PRINTIPRINT'Tound it!! Just wait one moment " 

4S0IFM=14464THENR$="SHIFT H :GOTO550 

490 MM=INT(M/256):ML=M-256»MM 

500 OPEN"R",l, "SYSO/SYS" 

510 FIELD 1,46ASA*,4ASB*,206AS C* 

520GET1.15 

530Z*<HR*(ML)+CHR$(MMHCHR*(254)+CHR$(P):LSETB*=Z* 
540PUT1,15!CLOSE 

550 PRINT032O,CHR*(31)"Done!' 

Don't forget to push "CHR«(34)R«CHR«(34)> after booting up'":FO 
RT=0TO999!NEXT:CMD"S=BOOT" 

560 PRINT@896,CHR*(30>;"Fush a key "J 

570 IFPEEK(14591)O0THEN570 

580 IFPEEKf 14591 )=0THEN580ELSERETURN 

590PRINT9256,;:FORI=1T03!PRINTSTRING*<192,32);:NEXT:RETU 

60ODATA217,33,0,60,17,83,128,l,192,0,237,176,33,0,60,6,192,54,32 
,35,5,32,250,30,150,14,1,121,183,40 

^ -,?^ TA17,<i>7 ' 62,1 ' 2n ' 255 ' 16 ' 254 ' 67 ' 62 ' 2 ' 211 ' 25 5'16,254,13,32,2 
39,29,32,230,213,33,83,128,17,0,60,1,192 

620DATA0,237,176,1,20,0,5,32,253,13,32,250,6,192,54,32,35,5,32,2 
50,209,217,201,128,128,128,140,140,188,140 

630DATA132,128,128,128,128,128,128,128,128,128,188,140,172,144 
,12S,128,128,184,172,144,128,128,128,188,172,144,128,184,17?,148 
fc , 4 o o ^J A128,128 ' 128,128 ' 128 ' 128 » 128 ' 128 ' 128 ' 1 28,128,128,128,128 
,128,128,128,128,32,32,32,32,32,32,32,32,32,128,128,128 

650 DATA128,128,191, 128,128,128,128,128,176,128,160,144,128,128 

,191,128,128,149,128,160,190,177,176,187,180,128,128,191,128,139 

660 DATA142,129,170,149,128,128,83,111, 102,116,119,97,114,101,1 

28,128,128,128,128,128,128,128,32,32,32,32,32,32,32,32 

670 DATA32,128,128,131, 141,142,129,128,128,140,128,128,130,141, 

135,128,128,128,143,140,142,129,136,135,128,128,128,128,130,141 

680 DATA128,143,128,128,128,128,138,133,128,128,82,1 11,1 16,1 16, 

101,114,100,97,109,128,128,128,128,128,128,128,32,32,32,32 

690 DATA32,32,32,32,32 

700 DATA195,0,81 

710DATA217,33,0,60,17,106,81,1,192,0,237,176,58,128,56 

720DATA254,1,40,71,33,0,60,6,192,54,32,35,5,32,250,30 

730 DATA150,14,1,121, 183,40,17,67,62,1,211,255,16,254,67,62 

740DATA2,211,255,16 t 254,13,32,239,29,32,230,213,33,106,81,17 

750DATAO,60,1,192,0,237,176,1,20,0,5,32,253,13,32,250 

760DATA6,192,54,32,35,5,32,250,209,24,178,33,228,78,54,33 

770DATA35,54,137,35,54,80,217,195,228,78,2,2,0,81 
780 ' 

a program of : 

Joop van Dam 

Hammarskjoldplaats 322 

3069 RJ Rotterdam 

HOLLAND 

Telephone 31+10+208984 
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oacJ 1 * 51303 ll3 p ATCH PROQRAJ< provided by Don Brate - This 
?Sfr£j >r09ram WlU * utomat Jc«Uy install various pitches to a 
TRSDOS 1.3 system disk. Each patch is explained, and you are 
then asked whether you want the patch to be installed. Don says 
he does not know who "J.F.A. Electronics" (mentioned in line 3) is, 
but apparently they got the patches from Tandy and Bob Snapp, 

«TTfnM^ :DEFINTA " Z!DIMK% * P1% * P2X ' Q »' PA *' P * <4 *»CLS:PRI 

VrZ,T.T!i " iREM UPDATED 05/01/82 

2 FRINTTAB(13>\ TRSDOS 1 .3 PATCHES 

3 FRINTTAB<13)\ Courtesy J.F.A. ELECTRONICS . 



4 PRINTTAB(13)- 

5 FRINTIPRINTThe current version of TRSDOS is 1.3, dated Jul 
y 1, 1981. 

6 PRINT'This program will allow you to apply a series of correcti 
ve 

7 PRINT"patches which should bring your TRSDOS up to version. 
It 

8 PRINT"will also list some patches, courtesy of BOB SNAPP of S 
NAFP- 

9 PRINT'WARE, which allow various optional modifications to TR 
SDOS 

10 PRINT" 1.3. ■=> Select only the patches you wish to apply. Thi 
s 

1 1 PRINT"program will generate a /BLD file containing your sele 
cted 

12 FRIKT"patches and then you will be given further instructions. 

13 GOT081 

14 PRIKT!INPUT"Press <ENTER> to continue,., "JO* 
15CLS:PRINTSTRING*<63,"»">JPRIKTTAB(26)"CAUnON":PRINTS 
TRING$(63 M #") 

16 PRINTiPRINT-BEFORE RUNNING this program, you must get it 
on a TRSDOS 1.3":PRINT"diskette — preferably the one you are g 

oing to patch. 

17 PRINT'If you have downloaded it to a 1.1 or 1.2 disk, put that 
disk-JPRINT-in Drive 1 and the TRSDOS 1.3 disk in Drive 0. After 

•RESET ' 

18 PRINT'go to BASIC and load it from Drive 1. You may get a de 
an ":PRlNT"load and be able to use it immediately. (Too probably 
should 

19 PRINT-SAVE' it to the TRSDOS 1.3 disk in Drive 0.) If you do 
n't"!PRINT"get a clean load, you will need to use cassette or 'XFE 
RSYS' 

20 PRINT"to get it to the TRSDOS 1.3 diskette. In any case, be s 
ure"!PRINT"you are running under TRSDOS 1.3 when you execute t 
his patch":PRINT"program!!!"J 

21 PRINT" Press <ENTER> to continue or <BREAK> to exit..."j:LI 
NEINPUTQf 

22 CLS:PRINTiPRINT"Be sure you have a backup TRSDOS 1.3 disk 
in drive and then 

23 PRINT"enter a filename (suggestion VATCHE5') but NO /exten 
sion? 

24UNEINPUTF*:iFLEN(F«»8ORLEN(F«K3ORINSTR(F*,"/")>0TH 
EN22 EL5EF*=F*-t-"/BLDS0 

25 PRINTiPRINT'Your DO FILE will be called! "}F« 

26 PRINT:iNPUT"Press <ENTER> to continue..."^** 

27 0PEN"0",1,F* 

28 PA*="":CLS:PRINT:PRINT"Patches 1 thru 12 correct a problem 
with 'XFERSYS', a problem 

29 PRINT'with BASIC, a formatting error message, an error in fil 
e load- 

30 PRINT'ing, and change the release date to Jul 1. These patche 
s are 

31 PRINT'mandatory and should be excluded ONLY if you have pre 
viously 

32 PRINT'applied them.*!PRINT 

33 print-apply patches 1-12 <y> or <k>? "j 

34 lin£infutq»:ifq*="n"then35 elseifqio'ythenprintc 
hr«(27))chr»(30>;:goto33 elsepi«=i:P2«12:pa*-pa$+"i-12, -:g 

OSUB127 

35 CLS:PRINT:PRINT"Patch 13 eliminates the graphics during boo 
t-up.":FRINT"AFFLY PATCH 13 <Y> OR <N>? "J 

36 UNEINPUTQf :IFQ*="N"THEN37 £LSEIFQsO"Y"THENPRINTC 
HR*(27)JCHR«(30)JiGOTO35 ELSEPl-13:P2«13!PA*=PA»+"13, ":G 
OSUB127 

37 PRINT:PRINT"Patch 14 eliminates the boot up message from th 
e TRSDOS"iPRINT"version through the serial number. 

38 PRINT"APPLY PATCH 14 <Y> OR <N>? "J 

39 LINEINPUTQs:iFQ*="N"THEN40 ELSEIFQsO"YTHENPRINTC 
HR«(27)iCHRs(30)j!GOTO38 ELSEPl«14iP2-14iPA*«PA*-t-"14, "JG 
OSUB127 

40 PRINTtPRINT'Patch 15 eliminates the Tandy Copyright messag 
e during boot. 

41 PRINT" APPLY PATCH 15 <Y> OR <K>? "{ 

42 LINEINPUTQ*:iFQs*"N"THEN43 ELSEIFQsO'YTHENFRINTC 
HR*(27);CHR«(30)i:GOTO41 ELSEPl«=15!P2«15:PA««PAt+"15, "!G 
OSUB127 

43 PRINTJPRINT'Patch 16 bypasses the TIME? question during bo 
ot-up. 

44 PRINT" APPLY PATCH 16 <Y> or <N>? "! 
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45 LINEINPUTQ*:iFQS="N"THEN46 ELSEIF0«O"Y"THENPRINTC 
HR«(27)!CHR$(30);:GOTO44 ELSEP1=16:P2=16JPA*=PA*+"16, "!G 
OSUB127 

46 PRINTJPRINT'Fatch 17 bypasses both DATE? and TIME? quest 
ion during boot-up. 

47 PRINT"APPLY PATCH 17 <Y> OR <N>? "j 

48 LINEINPUTQ*:iFQ*="N"THEN49 ELSEIFQSO'Y-THENPRINI 
HR«(27)iCHR*(30);:GOTO47 ELSEPl=17:P2=17!PA$=PAt+"17, "!G 
OSUB127 

49 CLS!PRINT:PRINT"Patch 18 changes the periods at TRSDOS R 
EADY' to spaces. 

50 PRINT"APPLY PATCH 18 <Y> OR <N>? •; 

51 LINEINPUTQ*!IFQ*="N"THEN52 ELSEIFQtO"Y"THENPRINTC 
HR*(27)!CHRt(30);:GOTO50 ELSEPl=18!P2=18iPA»=PA*+"18, "}G 
OSUB127 

52 PRINT!PRINT"Patch 19/20 corrects an error in FORMAT wherei 
n disk I/O error"!PRINT"retry counter is left incorrectly at 2 (ree 
□mended patch). 

53 PRINT'APPLY PATCHES 19/20 <Y> OR <N>? "! 

54 LINEINPUTQ»:IFQ$="N"THEN55 ELSEIFQSO'YTHENPRINTC 
HR*(27)iCHR*(30)J!GOTO53 ELSEPl=19tP2=20:PA$=PA«+"19, 20, " 
!GOSUB127 

55 PRINT:PRINT"Patch 21 allows you to support 65535 logical rec 
ords by":PRINT"expressing those above 32767 as negative number 
s."!PRINT"Eg. record # ♦ <65536 * (record #>32767» 

56 PRINT-APPLY PATCH 21 <Y> OR <N>? "i 

57 UNEINPUTQ$iIFQ«="N-THEN58 ELSEIFQiO'YTHENPRINTC 
HR«(27)!CHR$(30)}!GOTO56 ELSEPl«21IP2=21iPA«-FA»+"21, "JG 
OSUB127 

58 PRINT:PRINT"Patch 22/23 corrects 2 potential errors in the DI 
RECTORY. 

59 PRINT" APPLY PATCHES 22/23 <Y> OR <N>? "i 

60 LINEINPUTQ*:iFQ*="N"THEN61 ELSEIFQ«0"Y"THENPRINTC 
HR*(27);CHR*(30);:GOTO59 ELSEPl=22:P2=23!PA*=PA*+"22, 23, " 
JGOSUB127 

61 PRINTJPRINT-Patch 24/25 are mandatory patches to correct an 
"tPRINT-I/O error in a directory USR call. 

62 PRINT" APPLY PATCHES 24/25 <Y> OR <N>? "J 

63 LINEINPUTQ*!IFQ*="N"THEN64 ELSEIFQsOTTHENPRINTC 
HR*(27>;CHR»(30)J:GOT062 ELSEPl=24:P2=25!PA*=PA*+"24, 25, ' 
SGOSUB127 

64 PRINT:PRINT"Patch 26/27/28 allows DEBUG into low memory 
RAM and ROM. 

65 PRINT"APPLY PATCHES 26/27/28 <Y> OR <N>? "; 

66 LINEINPUTG*:IFQ$="N"THEN67 ELSEIF0*O"Y"THENPRINTC 
HR*(27);CHR*(30)J!GOTO65 ELSEPl=26iP2=28!PA*»PA*+"26, 27, 
28, "!GOSUB127 

67 PRINT:PRINT"Patch 29 provides detailed ERROR MESSAGES fr 
om TRSDOS rather"!PRINT"than 'ERROR 05' type of messages. 

68 print"apply patch 29 <y> or <n>? "j 

69 lineinputq*jifq*="n , then70 elseifq»0"y"thenprintc 
hr*(27);chr*(3o>;:goto68 elsepi»=29:p2»29:pa**pa*+"29 -:go 

SUB127 

70 PRINTJPRINTThis is a Patch to BASIC/CMD. It will allow you 
to read in a"!FRINT"BASIC program with up to a 50\ increase in 

speed."!PRINT"If the program leaves less than 400 bytes in"!PRI 
NT'memory you will recieve an out of Memory error" 

71 PRINT'AFPLY PATHES 30-45 <Y> OR <N> "J 

72 UNEINPUTQ«:iFQ*="N-THEN73 ELSEIFQsO'YTHENPRINTC 
HRf(27)JCHR«(30))!GOTO71 ELSEPl=30:P2-45!PA»=PA«+"30-45 ": 
GOSUB127 

73 close#i:cls:print:frint"you have selected the foll 
owing patches: 

74 print!printtab(5)pa« 

75 PRINTiPRINT'After reading these instructions, simply press ' 
RESET' and"!PRINT"when you get TRSDOS READY type 'CLEAR'. 

76 PRINT:PRINT"When the display settles down and you get TRSD 
OS READY again,":PRINT"type DO "jF*(" 

77 PRINT:PRINT"The patches will be applied to your TRSDOS 1.3 
disk (which"!PRINT"should still be in Drive 0) one by one. If you 
see the 

78 PRINT"error message 'String Not Found', ignore it! This mean 
s only"!PRINT"that the particular patch has already been applied 

to your -~ 

79 PRINT'disk. Now press "RESET'. 
80N=N+l!GOTO80 

81 P*<1)="PATCH XFERSYS/CMD (ADD-548E,FIND=3500FD21,CHG 
=FD360001) 

82 Pf(2)="PATCH BASIC/CMD (ADD-58F8,FIND=F1,CHG=00) 



63 FS(3)="FATCH *0 <ADD=503B,FIND=467269,CHG=536174> 

84 P*(4)="PATCH *0 (ADD=5044,FIND=31,CHG=32) 

85 P»(5)="FATCH *6 <ADD=5850,FIND=3A62,CHG=BF5F) 

86 P»(6)="PATCH *6 (ADD=5FBE,FIND=20697320616374,CHG=OD11 
6544C31C44) 

87 P*(7)="PATCH *0 <ADD=5044,FIND=32,CHG-31) 

88 P$(8)-"FATCH *0 (ADD=503A,FIND=20536!74204D,CHG=576564 
20204A) 

89 P*(9)x"PATCH *0 (ADD=5040,FIND=6179,CHG»=756C) 

90 P$(10)="PATCH «7 (ADD=579C,FIND*0955,CHG=3851) 

9J P»(11)«"FATCH »7 (ADD=5135,FIND=207468652064,CHG*3F200 
33A7D4E) 

92 P*(12)="FATCH *7 (ADD=513B,FIND*69736B657474,CHG«FE81C 
A0D55C9) 

93 P$(13)="PATCH *0 (ADD=4E89,FIND*=1B,CHG=27) 

94 P$(14)="PATCH #0 (ADD-4E95,FTND=1B,CHG=27) 

95 P$(15)="PATCH *0 (ADD=4E9B,FINl>lB,CHG-27) 

96 P»(16)»"FATCH *0 (ADD«4EFE,FIND<=215451,CHG=C32E4F> 

97 P$(17)«="PATCH #0 <ADDMEB8,FIND=213B51,CHG«C3394F) 

98 P$(18)="PATCH *1 <ADD=4E78,FIND=2E,CHG=20) 

99 P«(19)="PATCH *7 (ADD=4E55,FTND=12,CHG=0F) 

100 P$(20)="PATCH #7 (ADD=4E5B,FIND«0C,CHG«09) 

101 P$(21)»"PATCH BASIC/CMD (ADD=5EE8,FIND=451E,CHG«012 
B) 

102 P*(22>*"PATCH *10 (ADD=4E2A,FIND=3ADA4E,CHG«784F00) 

103 P$(23)="PATCH »10 (ADD=4E47,FIND=02,CHG«O3) 

104 P$(24)="PATCH «10 (ADD-4E2E,FIND*CD3E4B,CHG«CD8A50) 

105 P$(25)-"FATCH «10 (ADD«508A,FIND*4469736B,CHG"4FC33E 
4B) 

106 P$(26)«"PATCH *5 (ADD»4EDF,FIND»38E6,CHG-0000) 

107 P$(27)="PATCH *5 (ADD*4F04,FIND«D0,CHG=C9) 

108 P$(28)="FATCH *5 (ADD=506E,FIND-38E3,CHG*0000) 

109 P»(29)="PATCH «4 (ADD=4E28,FIND-20,CHG»18> 

110 P$(30)*"PATCH BASIC/CMD (ADD«5BFE,FIND«2AA440,CHG-C 
D8754)" 

111 P*(31)»"PATCH BASIC/CMD (ADD»5C07,FIND»=FF,CHG-FE)" 

112 P$(32)="PATCH BASIC/CMD (ADD»5C0D,FINT>=CD535F7723,C 
HG=CD9B540000)" 

113 P$(33)«"PATCH BASIC/CMD (ADD*53CC,FIND-8754,CHG«4A1 
E>" 

114 P$(34)="PATCH BASIC/CMD (ADD=5487,FIND-E17EFE26,CHG 
=2323E5DD)" 

115 P$(35)="PATCH BASIC/CMD <ADD»548B,FIND-C24A1ED7,CHG 
==E1ED5BA4)" 

116 P$(36)=*PATCH BASIC/CMD <ADD»548F,FTND=C24Al£E5,CHG 
=40013300" 

117 P$(37)*"PATCH BASIC/CMD <ADD«5493,FIND=219BS4CD,CHG 
=0901FF00>" 

118 P$(38)= B PATCH BASIC/CMD <ADD=5497,FIND=3F56E1C9,CHG 
=EDB0EBC9)" 

119 P»(39)»"PATCH BASIC/CMD (ADD=549B,FTNr>35013D3C,CHG 
=DD7503DD>" 

120 P$(40K"PATCH BASIC/CMD (ADD«549F,FIND«26751734,CHG« 
7404DD36)" 

121 P$(41)="FATCH BASIC/CMD (ADD«54A3,FIND"263C3675,CHG 
=0500DDCB>" 

122 P$(42)-"PATCH BASIC/CMD (ADD-54A7,FIND*3C267516,CHG 
-01EEDD34)" 

123 Pi(43)="PATCH BASIC/CMD (ADD*54AB,FIND*1A050C07,CHG 
-0A2003DD)" 

124 P$(44)«"PATCH BASIC/CMD (ADD-54AF,FIKD-1C121D01,CHG 
«=340B24C3)" 

125 P$(45)«"PATCH BASIC/CMD (ADD-54B3,FIND-1011,CHG*535F 
)" 

126 GOTO 14 

127 FORN=PlTOP2 
128PRINT#1,P«(N) 

129 NEXTN 

130 RETURN 

PRINT TOUR OWN CHRISTMAS CARDS an your Epson (with 
Graftrax-Plus) or Gemini- 1 OX or -15X printer. By using color 
ribbons and one or more software programs, you can create up to 
four different styles of Christmas cards using five colore. I've 
seen a sample and it looks really nice. Each program (which will 
do one card style) costs »14,00 on cassette or *15.00 on disk, and 
versions are available for the Models I, XII (and 4 in III mode), 
and Color Computer with Extended BASIC. For information on the 
card programs, write to Francis S. Kalinowski, 16 N. Alder Drive, 
Orlando, Florida 32807. 



By the way, if all you want are the color ribbons for the 
printer, they are available from P.F. Skeberdis, P.O. Box 27, 
Fremont, Michigan 49412 (phone (616) 924-3175). Apparently Mr. 
Kalinowski does not sell the ribbons, so in order to print your 
own cards, you have to get the program from Mr. Kalinowski and 
the ribbons from Mr. Skeberdis. The results are worth the effort, 
however. The only drawback is that while the cards are quite 
beautiful in and of themselves, they do not, in my opinion, 
properly capture the true religious significance of the holiday. 
But that is a matter of preference and conviction, and if your 
convictions aren't as intense as mine, I think you may find that 
these cards are just the thing to answer that time-honored 
question, "But what's a computer GOOD for?..." 

IT'S AMAZING WHAT TOU FIND WHILE YOU'RE CLEANING 
DEFT. - While in the process of moving, I found what surely must 
be a collector's item! A "Tandy Computers 1978 Catalog"! Those 
of you that are relative newcomers to the computer game might be 
surprised to leam that Tandy Computers (located at 1500 One 
Tandy Center in Fort Worth) once issued a catalog which offered 
computers from many manufacturers, including the IMSAI 8080, 
VECTOR 1, XITAN alpha-2, Equinox 100, PolyMorphic System 8813 
and 88-2, Southwest Technical 6800, ICOM 6800, Intecolor 8031, 
Processor Technology Sol-20, and others. Also featured were 
printers (a Centronics 779 was »1145), terminals and monitors, 
disk drives (a Shugart SA400 35 track Minifloppy Diskette Drive 
sold for $355), expansion boards and CPU boards (including the 
Tandy CPU-1 which used an 8080A and was S-100 compatible), 
Software (you could get "Tandy Disk Basic" for $149.95 or 
"Microsoft BASIC" for $350), books, and miscellaneous parts and 
hardware (a 2708 IK EPROM sold for $24.95). 

What, no TRS-80? Tes - on the last two pages of the 
catalog (back cover and inside back cover), the Model I was 
featured. The "Computer with Power Supply and Built-in 
Keyboard" (and Level I BASIC and only 4K of ROM) was $399.95. 
The "12 inch Video Display" (actually an RCA portable television 
set with tuner and sound section removed, and a bit of interface 
circuitry added) sold for $199.95, and the "Realistic CTR-41 Data 
Recorder" (which had been just a plain old Radio Shack cassette 
recorder until someone at Tandy decided it would make do for a 
■data recorder") sold for $49.95. That came to $649 for the 
package, but you could save $49.90 by buying the complete package 
for $599.95 

Or you could go whole hog and buy the "Complete Radio Shack 
Microcomputer System" for $2995.00. This gave you all the items 
mentioned above (except that the keyboard contained 16K of RAM 
and Level II BASIC), a TRS-80 Line Printer (a 5x7 dot matrix 
printer that sold separately for $1299), a "Floppy Disk System" 
(actually one disk drive with cable, which sold for $499 
separately), an Expansion Interface (the original buggy version, 
with NO expansion memory installed), and a (here's jjst what 
you've always wanted for three grand, folks) game cassette 
(probably the original Blackjack/Backgammon game cassette)! 

You want some real software, you say? Well, you had four 
additional programs to choose from, all on cassette. A payroll 
program (which would handle twelve employees, $19.95), Math I 
(addition, subtraction, multiplication, division skills, $19.95), 
Kitchen (menus, conversion tables, directory, message center, 
$4.95) and Personal Finance (no other description, but probably a 
"use the computer to balance your checkbook" type program, 
$14.95). 

Now I know why computer users don't tend to sit around and 
reminisce about the "good old days"! 

NEWS RELEASE: "ONLINE TELECOMPUTING, INC. is proud 
to announce 'Independence Day For The Personal Computer User.' 
Starting July 4th ONLINE, the world's first TREE' electronic 
information service, will be accessible by an 800 number to all of 
the continental U.S. ACCESS NUMBER! (800) 438-2438. 
Operational Hours: Monday - Thursday 6 PM - 1 AM, Friday at 
6 PM until 6 AM Monday (all times are Eastern Standard Time). 
For information on listing products or services contact our office 
in Georgia at (404) 998-7776." 

I have managed to get on this service once or twice. They do 
not have a message service like your local BBS, but they are still 
pretty popular - it's nearly impossible to get through without 
getting a busy signal! Set up your auto-dialer program and give 
them a try... 
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MCI MAIL NOTES - I think that MCI Mail is really trying 
hard to make their system more "user friendly" (at risk of using a 
phrase that has been banished by the Unicorn Hunters!). I have 
noticed now that when you CREATE an MCI Mail letter, you can 
type in the recipient's FULL name and MCI Mail will still "find" 
them on the system. For example, to reach me, you could CREATE 
a message to JDECKER (but you would then have to pick me out 
from among a list of all the folks with a last name of Decker and a 
first initial of J that are on the system), OR your could CREATE a 
message to 102-7413 (my MCI Mail address, which you might not 
remember), OR you could CREATE a message to JACK DECKER, 
which would find me and me alone (at least until another Jack 
Decker signs onto MCI Mail!). Similarly, when you are sending an 
order to The Alternate Source, you can CREATE a message to 
either TAS or to THE ALTERNATE SOURCE. 

Also, I mentioned last issue that MCI Mail did not have a 
local access number in Seattle (which would have been handy for 
folks in western Canada that might want to use the system). 
Hell, they do now! The number is (206) 282-3077. There's also a 
new access number for Hawaii (it's a local call in the Honolulu 
area), it's (808) 545-3050. Of course, users in the mainland U.S. 
can still use the MCI Mail national toll-free access number (800) 
323-0905. If you aren't a registered MCI Mail user, hit ENTER 
once or twice when you get modem tone, then type the word 
REGISTER for both User I.D. and password. Tou can then 
register electronically, or you can call (800) 424-6677 to speak 
with an MCI Mail representative. Remember, there are NO 
charges unless and until you actually SEND mail, and then it only 
costs Si. 00 to send up to 7500 characters to another MCI Mail 
user. 



THE COLOUR OF VDT'S AND THE EYE by James F. Johnson, 
O.D., F.A.A.O. is reprinted from USR(80)S 

I'll first quote from an erudite paper given by a pair of 
eminent professors at the University of Waterloo (that's in 
Ontario folks), Drs. J. Sivak and G. Woo. 

"The longitudinal chromatic aberration of the human eye is 
substantial and therefore the colour of the phosphor chosen for a 
visual display terminal (VDT) will affect refractive state and 
accommodative demand. For most working distances green stimuli 
( = max. 520 nm) are optimal." 

In translation this says essentially something that we've all 
known for some time! that it is easy seeing green! Now you know 
why. Or do you? 

Light breaks up in the eye to its coloured components, much 
like a prism or rainbow. The brain re-integrates it so that we 
don't notice the aberration. However, we are all slightly 
nearsighted (myopic) to blue light and the opposite is true of red 
light - we strain a bit. The eye is most sensitive to light with a 
wavelength of 520 nanometers. So what's a nanometer? It is 
awfully darn small! (1E-9 meters) 520 of them make a yellowish 
green colour, 

The effect of VDT'S on human health and comfort has been 
the subject of much discussion in such learned tomes as Readers 
Digest and Micro 80, and has even attracted the attention of that 
great institution of health care, the British Columbia Department 
of Labour. All agree there are problems, how many we don't know 
yet. 

We do know, for instance, that the emission of X-Rays is 
less from the worst black & white phosphor tube over a period of 
1 year than it is from one chest X-Ray every 2 years. You may 
put away the lead apron now. 

The effect of VDT'S on the eye can affect physical comfort. 
If you normally need spectacles occasionally, it is probable that 
you will need them more while working in front of a computer 
terminal. Qualities other that colour have unpleasant effects on 
us. The natural stimulus to accommodation (better known as 
"strain to see close up") is a blur - so set your contrast to the 
best you can get. If your tube is blurred, your eyes could 
constantly be changing focus, and get tired out. 

Another annoying habit of some phosphors is their very fast 
decay time, causing a barely perceptible flashing or flicker on the 
screen. This can be very tiring to the human system (this must be 
true - it was in Micro-80). Since I am due for more schooling on 
this subject next month I will leave this topic for a later article. 



MOVING THE MODEL 4 ROM INTO RAM - If you have a 
Model 4 or 4P, you can move the ROM code into RAM, where it can 
then be patched, changed, or otherwise diddled with. I had 
previously published a method to do this, but as usual, someone 
else has a better way. The "someone else" in this case is Lyman 
Epp of Omaha, Nebraska, and this is the code he uses te^ 
accomplish the task! 



5210 
5200 F3 
3211 21FF37 
52ti AF 
3215 D384 
5217 44 
5208 X 
5219 0394 
521)6 71 
521C 2B 
52t0 B4 
52KF2M52 

5211 FB 

5212 C? 
5201 
•1100 TOTAL 

LOOP 5214 



11010 

OHIO 
01021 

01030 
11010 
01050 
01040 
01070 
11080 
01070 
01100 
OHIO 
01120 
01130 
01140 
01150 
11160 
01170 
01180 
01170 
11200 
01210 
01221 
01230 
11240 
11250 
11260 
11271 
11280 
ERRORS 



IK**: HOVE/SRC, rambled as MOVE/OB 
!By ! L*tan Epp 
IDate! 14/12/84 

t'This prolan noves RON into RAH on a Itodel 1 or 4P 
{computer. Mien this progran is done executing, it is 
iin the 'RAH' »de. This proven is six bates shorter 
Jthan the shortest netted that I found (using LOIR and 
imving the entire ROM iiwge into high twrwra, etc...) 
[This Mthod takes .227 seconds (at 4 MHz) to execute, 
land 717,522 T states to execute everything but the final 
iRET statement. The other nethod (LOIR) took .151 
I seconds and 612,232 T states to execute. 



START 



LOOP 



ORG 

01 

LD 

X0R 

OUT 

LD 

INC 

OUT 

LD 

DEC 

OR 

JP 

n 

RET 
DO 



520 OH 

HL.37FFH 

A 

(84H),A 

B,(HL) 

A 

(84N),A 

(HL),B 

HL 

H 

P,LO0P 



START 



{START LOCATION 

(PUT IN ROM NAP 
JGETBYTE 

JPUT W RAM HAP 
JSAVE BYTE 
(AND 00 IT AGAIN 
J UNTIL YOU GET TO 
! LOCATION I00OH 



START 5211 



MODEL 4P MEMORY EXPANSION by Ian Webb, Saratog. 
California is reprinted from the Cabrillo Computer Society Model 
1,111,4 SIG Technical Notes! 

I had occasion to try to expand a Model 4P to 128K. It 
appears as though there is NO information on the 4P available. 
All my magazines seem to ignore this machine. Radio Shack is 
tight-lipped about it and there doesn't seem to be a technical 
manual available. 

To expand the machine to 128K you need about an hour of 
time and eight 4164 dynamic RAM ICs. I bought mine from DoKay, 
2100 De La Cruz Boulevard, Santa Clara, California 95050. They 
cost S5.45 a piece for 200 nanosecond devices which is what I 
recommend you buy. 

Open your machine, insert the memory chips in the eight 
available sockets AND move the AMP shorting block from E12-E13 
toEll-E12. 

Test your memory by using MEMDISK from TRSDOS 6.1.2 
ESYSTEM (DRIVE=2,DRIVER="MEMDISK")D, 

If everything checks, you have it. Congratulations. If you 
care, 128K RAM buttons are available from the Shack for about 
• 1.59 each. 



CP/M PUBLIC DOMAIN DISKS - John Cramer has most CP/M 
Public Domain Library disks and will supply them for a nominal 
cost to computer users. He will copy them to the user's formatted 
disk, or will supply the disk. Average cost is «5 per single-sided 
disk, *6 per double-sided disk (price includes disks). John 
supports 8" single density and over 40 5" CP/M. and CP/M86 
formats, including Radio Shack Models I/IU/4, Montezuma Micro, 
Omikron, CPM+. Libraries maintained include Osborne, SIG/M, 
CPMUG, TRS-80 Mod 1, IBM-PC Blue, & Piconet. Send a 37 cent 
self-addressed stamped envelope for theme lists of all libraries 
to John Cramer, Box 28606, Columbus, Ohio 43228-0606. If yo " 
don't send the SASE, you won't get a reply! John says he can als 
transfer files between various CP/M formats. 
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